久久国产成人av_抖音国产毛片_a片网站免费观看_A片无码播放手机在线观看,色五月在线观看,亚洲精品m在线观看,女人自慰的免费网址,悠悠在线观看精品视频,一级日本片免费的,亚洲精品久,国产精品成人久久久久久久

搜索
分享

VBA/Excel-實例系列-06-求兩個數(shù)組的差集

 今天George 2017-04-03

系統(tǒng)：Windows 10
軟件：Excel 2010

  • 這個系列說一些使用Excel/VBA具體的一些實例

  • 今天講講如何獲得兩個數(shù)組的差集，要求兩個數(shù)組本身無重復元素

  • 差集：A-B,，即在數(shù)組A中而不在數(shù)組B中的元素

今日歌曲：

Part 1：邏輯過程

  1. 數(shù)組差集A-B

  2. 數(shù)組A與B的交集,，假設(shè)為C

  3. 求在數(shù)組A中而不在數(shù)組C中的元素，即為差集

  4. 其實不用求交集,，直接求在數(shù)組A而不在數(shù)組B中的元素，即為差集

  5. 10000點尷尬,，不過文章寫到這里啦,，先按照這個笨方法來，哈哈

  6. 其中funIntersection為求交集函數(shù),，參考

    VBA/Excel-實例系列-04-求兩個數(shù)組的交集

Part 2：代碼

Function funAMinusB(array1, array2)    Rem>>求數(shù)組1和數(shù)組2的差集    Rem>>    Dim arrayInter    Dim array3()    Dim lenA    Dim i    Dim val1    Dim pos    Dim maxNum    Dim FlagError    lenA = 0    On Error Resume Next    Err.Clear    arrayInter = funIntersection(array1, array2)    '判斷數(shù)組是否為空    FlagError = UBound(arrayInter)    If Err.Number <> 0 Then '判斷是否為空數(shù)組        funAMinusB = array1    Else        maxNum = UBound(array1)        For i = 0 To maxNum Step 1            val1 = array1(i)            pos = Application.Match(val1, arrayInter, 0)            If IsError(pos) Then '未找到                ReDim Preserve array3(lenA)                array3(lenA) = val1                lenA = lenA 1            End If        Next i        funAMinusB = array3    End If End Function

Part 3：調(diào)用該函數(shù)

   array1 = Array('張三', '李四', 1, 2, 3, 4, 5)    array2 = Array(7)    array1_2 = funAMinusB(array1, array2)

執(zhí)行結(jié)果

以上為本次的學習內(nèi)容,，下回見

本文為原創(chuàng)作品，如若轉(zhuǎn)載請標明出處,，如發(fā)現(xiàn)有錯誤,，歡迎留言指出

    本站是提供個人知識管理的網(wǎng)絡(luò)存儲空間，所有內(nèi)容均由用戶發(fā)布,，不代表本站觀點,。請注意甄別內(nèi)容中的聯(lián)系方式、誘導購買等信息,，謹防詐騙,。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請點擊一鍵舉報,。
    轉(zhuǎn)藏 分享 獻花（0）

    0條評論

    發(fā)表

    請遵守用戶 評論公約

    類似文章 更多