[已解决]把公式换vba

mmc998

Book2.rar (68.89 KB, 下载次数: 32)

2014-2-1 11:25 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

xdragon

2014-2-1 12:04

1. Sub test()
   
2.   Dim arr(), brr(), crr(), i&, j%
   
3.   arr = Range("A4").CurrentRegion.Value
   
4.   brr = Range("C2").CurrentRegion.Value
   
5.   ReDim crr(1 To UBound(arr) + 1, 1 To UBound(brr, 2))
   
6.   For i = 1 To UBound(crr) - 1
   
7.     For j = 1 To UBound(crr, 2)
   
8.       crr(i + 1, j) = IIf(arr(i, 1) = brr(1, j), 0, crr(i, j) + 1)
   
9.     Next
   
10.   Next
    
11.   Range("C3").Resize(UBound(crr), UBound(crr, 2)) = crr
    
12. End Sub

复制代码

请测试下，看看

跳转到最佳答案楼层

xdragon

1. Sub test()
   
2.   Dim arr(), brr(), crr(), i&, j%
   
3.   arr = Range("A4").CurrentRegion.Value
   
4.   brr = Range("C2").CurrentRegion.Value
   
5.   ReDim crr(1 To UBound(arr) + 1, 1 To UBound(brr, 2))
   
6.   For i = 1 To UBound(crr) - 1
   
7.     For j = 1 To UBound(crr, 2)
   
8.       crr(i + 1, j) = IIf(arr(i, 1) = brr(1, j), 0, crr(i, j) + 1)
   
9.     Next
   
10.   Next
    
11.   Range("C3").Resize(UBound(crr), UBound(crr, 2)) = crr
    
12. End Sub

复制代码

请测试下，看看

mmc998

可以

zjyxp

路过学习

mmc998

谢谢

hetianjun888

学习了 谢谢