[已解决]VBA替换函数

瀚海人

表格里面有函数公式，因运算数据量大
我就想用vba替换函数。
完成23万行数据的统计
请教老师帮助用VBA替换函数。拜谢！！！！

最佳答案

月排行榜 / 总排行榜

suye1010

2013-7-7 16:54

1. 
   
2. Sub test()
   
3. On Error Resume Next
   
4. Dim arr1, arr2, i, j
   
5. arr1 = Range("T1:EI3")
   
6. arr2 = Range("R9:EI14")
   
7. For i = 2 To UBound(arr2)
   
8.     For j = 1 To UBound(arr1, 2)
   
9.         If InStr(Join(Application.Transpose(Application.WorksheetFunction.Index(arr1, 0, j))), arr2(i, 1)) Then
   
10.             arr2(i, j + 2) = "中"
    
11.         Else
    
12.             arr2(i, j + 2) = Val(arr2(i - 1, j + 2)) + 1
    
13.         End If
    
14.     Next j
    
15. Next i
    
16. Range("R9:EI14") = arr2
    
17. End Sub

复制代码

Range("R9:EI14")中的14 替换为最后一行数据所在的行号.

跳转到最佳答案楼层

hwc2ycy

看不懂和结果之间有什么关联。

我心飞翔410

find 查找替换 下面选择公式 ？

瀚海人

表格里面有函数公式
我就想用vba替换函数。完成23万行数据的统计

ppp710715

Excel2003不是最多65536行吗？何来23万行？

suye1010

1. 
   
2. Sub test()
   
3. On Error Resume Next
   
4. Dim arr1, arr2, i, j
   
5. arr1 = Range("T1:EI3")
   
6. arr2 = Range("R9:EI14")
   
7. For i = 2 To UBound(arr2)
   
8.     For j = 1 To UBound(arr1, 2)
   
9.         If InStr(Join(Application.Transpose(Application.WorksheetFunction.Index(arr1, 0, j))), arr2(i, 1)) Then
   
10.             arr2(i, j + 2) = "中"
    
11.         Else
    
12.             arr2(i, j + 2) = Val(arr2(i - 1, j + 2)) + 1
    
13.         End If
    
14.     Next j
    
15. Next i
    
16. Range("R9:EI14") = arr2
    
17. End Sub

复制代码

Range("R9:EI14")中的14 替换为最后一行数据所在的行号.