vbaA自定义函数的问题

422566739

Public Function vbaarr(ByVal rng1, rng2)
'rng1, rng2是2个数组
'目的是如果rng1中存在rng2中的值就删除(不是空文本)
  For Each res2 In rng2
    For Each res1 In rng1
      If res1 <> res2 Then
        str2 = str2 & "/" & res1
      End If
    Next
  Next

End Function

petergaod

Public Function vbaarr(ByVal rng1, rng2)
    Dim dic
    Set dic = CreateObject("scripting.dictionary")

    For Each res2 In rng2
        dic(res2.Value) = ""
    Next
    For Each res1 In rng1
        If Not dic.exists(res1.Value) Then
            str2 = str2 & IIf(str2 = "", "", "/") & res1.Value
        End If
    Next
    vbaarr = str2
End Function

422566739

petergaod 发表于 2019-9-18 10:48
Public Function vbaarr(ByVal rng1, rng2)
    Dim dic
    Set dic = CreateObject("scripting.diction ...

谢谢,很简洁,是想要的结果!

liulang0808

Public Function vbaarr(ByVal rng1, rng2)
'rng1, rng2是2个数组
'目的是如果rng1中存在rng2中的值就删除(不是空文本)
  For Each res2 In rng1
    For Each res1 In rng2
      If res1 =res2 Then
            goto l1
        
      End If
    Next
    str2 = str2 & "/" & res2
l1:
  Next
vbaarr=str2
End Function楼主看看是否可行

422566739

liulang0808 发表于 2019-9-19 07:54
Public Function vbaarr(ByVal rng1, rng2)
'rng1, rng2是2个数组
'目的是如果rng1中存在rng2中的值就删 ...

老师给了另一条思路,但是在数组中空文本很麻烦,还是要去除的

liulang0808

Public Function vbaarr(ByVal rng1, rng2)
'rng1, rng2是2个数组
'目的是如果rng1中存在rng2中的值就删除(不是空文本)
  For Each res2 In rng1
if len(res2)>0 then
    For Each res1 In rng2
      If res1 =res2 Then
            goto l1
        
      End If
    Next
    str2 = str2 & "/" & res2
l1:
endif
  Next
vbaarr=str2
End Function