[已解决]用VBA查找数字具体在哪一行

laoau138

用VBA查找数字具体在哪一行

最佳答案

月排行榜 / 总排行榜

france723

2017-5-29 02:39

感觉以你的水平完全可以自己写出来。不要对论坛有太大的依赖性~

1. Sub aaa()
   
2. Dim y, ar, i, s, br, n
   
3. ReDim br(1 To 1)
   
4. Range(Cells(1, 4), Cells(1, 256)).ClearContents
   
5. y = Range("a65536").End(3).Row
   
6. ar = Range("a1:a" & y)
   
7. s = ar(UBound(ar), 1)
   
8. For i = UBound(ar) To 1 Step -1
   
9.     If ar(i, 1) = s Then
   
10.         n = n + 1
    
11.         ReDim Preserve br(1 To n)
    
12.         br(n) = i
    
13.     End If
    
14. Next i
    
15. Range("d1").Resize(1, UBound(br)) = br
    
16. End Sub

复制代码

跳转到最佳答案楼层

france723

感觉以你的水平完全可以自己写出来。不要对论坛有太大的依赖性~

1. Sub aaa()
   
2. Dim y, ar, i, s, br, n
   
3. ReDim br(1 To 1)
   
4. Range(Cells(1, 4), Cells(1, 256)).ClearContents
   
5. y = Range("a65536").End(3).Row
   
6. ar = Range("a1:a" & y)
   
7. s = ar(UBound(ar), 1)
   
8. For i = UBound(ar) To 1 Step -1
   
9.     If ar(i, 1) = s Then
   
10.         n = n + 1
    
11.         ReDim Preserve br(1 To n)
    
12.         br(n) = i
    
13.     End If
    
14. Next i
    
15. Range("d1").Resize(1, UBound(br)) = br
    
16. End Sub

复制代码

laoau138

france723 发表于 2017-5-29 02:39
感觉以你的水平完全可以自己写出来。不要对论坛有太大的依赖性~

VBA改写数组并且不要用find  可选择统计行数


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

laoau138

france723 发表于 2017-5-29 02:39
感觉以你的水平完全可以自己写出来。不要对论坛有太大的依赖性~

用VBA数组按开始结束日期   实现分类统计汇总

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