怎么多条件匹配？

cxwhite

袁勇 发表于 2024-11-28 08:56
疏忽了

感谢大佬，太感谢了！！！！！！！

zhangcheng6688

学习一下数组
Sub test()
arr = [l11].CurrentRegion
ReDim brr(1 To UBound(arr) - 1, 1 To 1)
crr = [a1].CurrentRegion
For i = 4 To UBound(crr)
   If crr(i, 1) = "" Then
      crr(i, 1) = crr(i - 1, 1)
      crr(i, 2) = crr(i - 1, 2)
   End If
Next
For i = 2 To UBound(arr)
   For j = 4 To UBound(crr)
      If arr(i, 1) > crr(j, 1) And arr(i, 1) <= crr(j, 2) Then
         If arr(i, 2) = crr(j, 3) Then
            For k = 4 To UBound(crr, 2)
               If arr(i, 3) = crr(3, k) Then
                  m = m + 1
                  brr(m, 1) = crr(j, k)
               End If
            Next
         End If
      End If
   Next
Next
[m14].Resize(m, 1) = brr
End Sub