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

INaga2018

各位老师如下excel 函数功能 如何在VBA实现 并赋值给数组？
=if(A1=A1:A100,H1:H100,I1:I100)

类似于这样的效果：
Sub abc()
Dim arr1
arr1 = Application.If(Sheet1.Range("A1") = Sheet1.Range("A1:A100"), Sheet1.Range("H1:H100"), Sheet1.Range("I1:I100"))
End Sub

lss001

见以下楼！！！

INaga2018

lss001 发表于 2019-6-11 19:32
Sub abc()
    Dim arr1
    Sheet1.Activate'先激活Sheet1，以简化赋值！

老师，运行后错误提示：类型不匹配，这个怎么处理啊

lss001

少了左括号，楼上已经更正！

INaga2018

lss001 发表于 2019-6-12 09:25
少了左括号，楼上已经更正！

Sub abc()
    Dim arr1
    Sheet1.Activate '先激活Sheet1，以简化赋值！
    arr1 = IIf([SUMPRODUCT((A1:A100=B1)*1)], [H1:H100], [I1:I100])
    Sheet1.Range("M1") = Join(arr1, " ")
   
End Sub

加了最后一句代码，提示无效的过程的过程调用或参数，这个怎么处理呀并且sumproduct（）函数只有一个结果，并没有办法类似与A1:A100=B1得到 100个布尔值来对应 h1:h100 和I1:I100呀

lss001

见以下楼分析！

INaga2018

lss001 发表于 2019-6-12 10:40
Sub abc()
    Dim arr1, arr2, arr3, arr4
    Sheet1.Activate

这个看懂了，下面这样的怎么弄呢
Sheet1.Activate
  f = Sheet3.[A65535].End(xlUp).Row
  arr5 = Sheet3.Range("A1:A" & f)
  arr6 = Sheet3.Range("H1:H" & f)
  arr7 = Sheet3.Range("I1:I" & f)
  arr8 = Sheet3.Range("S1:S" & f)
  arr9 = Sheet3.Range("X1:X" & f)提示不能给数组赋值
或者如何将[A1:A100]做成动态的呢

lss001

Sub abc()
    Dim arr1, arr2, arr3, arr4
    Sheet1.Activate'已经激活不必再用"Sheet1."
    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] Then arr1(i) = arr2(i, 1) Else arr1(i) = arr3(i, 1)
    Next
    [M1] = Join(arr1, " ")
End Sub

INaga2018

lss001 发表于 2019-6-12 15:49
Sub abc()
    Dim arr1, arr2, arr3, arr4
    Sheet1.Activate'已经激活不必再用"Sheet1."

老师，如何将arr1中包含特定多个字符的元素清除呢？
比如 arr1中 有A，AA，a，aa，Aa这些元素，如何将包含A（A，AA，Aa）的元素去除呢

lss001

见楼上，以后不必如此，有问题一并提为妥？