用VBA改成公式查找方法 只能用数组 不能用字典不用find

laoau138

用VBA改成公式查找方法   只能用数组  不能用字典不用find

grf1973

1. Sub 查找()
   
2.     Dim brr(1 To 100)
   
3.     arr = [q9:v16]
   
4.     For i = 1 To UBound(arr)
   
5.         For j = 2 To UBound(arr, 2)
   
6.             If arr(i, j) > 0 Then brr(arr(i, j)) = arr(i, 1)
   
7.         Next
   
8.     Next
   
9.     arr = [c10:h12]
   
10.     For i = 1 To UBound(arr)
    
11.         For j = 1 To UBound(arr, 2)
    
12.             If arr(i, j) > 0 Then arr(i, j) = brr(arr(i, j))
    
13.         Next
    
14.     Next
    
15.     [J15].Resize(UBound(arr), UBound(arr, 2)) = arr
    
16. End Sub

复制代码

laoau138

grf1973 发表于 2017-2-13 13:43

这个比较麻烦如何做


VBA用数组计算相连数字分解组合 改写加入第三部分


http://www.excelpx.com/thread-427718-1-1.html