VBA 如何通过if()函数功能赋值给数组？

INaga2018

lss001 发表于 2019-6-12 17:16
见楼上，以后不必如此，有问题一并提为妥？

谢谢，新手学习，有些东西要一步一步的学才学的会

INaga2018

lss001 发表于 2019-6-12 17:16
见楼上，以后不必如此，有问题一并提为妥？

老师，不是先合并再替换，是在合并字符前做去除数组中包含这些字符的元素，在做合并。
或者是在做过滤条件时就把包含特定字符的元素做过滤
比如：
Sub abc()
    Dim arr1, arr2, arr3, arr4
    Sheet1.Activate
    x  = Cells(Rows.Count, 1).End(3).Row
    arr4 = Range("A1:A" & x)
    arr2 = Range("H1:H" & x)
    arr3 = Range("I1:I" & x)
    ReDim arr1(1 To UBound(arr4))
    For i = 1 To UBound(arr4)
        If arr4(i, 1) = [b1] and arr2(i,1) >0 and arr3(i,1)<>"A" 再进行then 赋值
    Next
    [M1] = Application.Substitute(Application.Substitute(Join(arr1, " "),"A",""),"a","")
End Sub
类似这样的效果

lss001

INaga2018 发表于 2019-6-12 17:44
老师，不是先合并再替换，是在合并字符前做去除数组中包含这些字符的元素，在做合并。
或者是在做过滤条 ...

自行改改，多试试！

INaga2018

lss001 发表于 2019-6-12 18:37
自行改改，多试试！

找到了instr 的用法可以达到要求，那么instr()有没有数组的用法呢，类似instr(1,"xxxx",["zz","cc","vv"],1),像EXcel 中search/find的数组用法，在同一个字符串里可以同时查找多个字符并返回结果？