[已解决]用VBA数组把for each改写for循环

laoau138

用VBA数组把for each改写for循环

最佳答案

月排行榜 / 总排行榜

france723

2017-5-27 14:37

1. Sub aaa()
   
2. Dim v As String, i, j
   
3. v = "Hello"
   
4. ar = ActiveSheet.UsedRange
   
5. For i = 1 To UBound(ar)
   
6.     For j = 1 To UBound(ar, 2)
   
7.         If InStr(1, ar(i, j), v) <> 0 Then
   
8.             MsgBox (i & "行" & j & "列")
   
9.         End If
   
10.     Next j
    
11. Next i
    
12. End Sub

复制代码

跳转到最佳答案楼层

france723

1. Sub aaa()
   
2. Dim v As String, i, j
   
3. v = "Hello"
   
4. ar = ActiveSheet.UsedRange
   
5. For i = 1 To UBound(ar)
   
6.     For j = 1 To UBound(ar, 2)
   
7.         If InStr(1, ar(i, j), v) <> 0 Then
   
8.             MsgBox (i & "行" & j & "列")
   
9.         End If
   
10.     Next j
    
11. Next i
    
12. End Sub

复制代码

laoau138

france723 发表于 2017-5-27 14:37

用VBA数组改写公式查找  不要用find也不要用单元格


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

laoau138

france723 发表于 2017-5-27 14:37

果然是高手