[已解决]如何用VBA查找某个数字所在第几行，比如"合计"所在单位格在第几行。谢谢！

fuxuanbo

如何用VBA查找某个数字所在第几行，比如"合计"所在单位格在第几行。谢谢！

最佳答案

月排行榜 / 总排行榜

yorkchenshunan

2015-9-21 16:54

如果是3000多个单元格的话，建议用数组，同时增加exit for，以提高程序运行效率

1. Sub 查找()
   
2. ar = [c1:c3000]
   
3. For n = 1 To UBound(ar)
   
4.     If ar(n, 1) = "总计" Then
   
5.         a = n
   
6.         Exit For
   
7.     End If
   
8. Next n
   
9. b = 3
   
10. MsgBox "行号为" & a & "-" & "列号为" & b
    
11. End Sub

复制代码

跳转到最佳答案楼层

fuxuanbo

Sub 查找()
For Each Rng In Range("c1:c3000")
    If Rng = "总计" Then
        a = Rng.Row
        b = Rng.Column
    End If
Next
MsgBox "行号为" & a & "-" & "列号为" & b
End Sub

yorkchenshunan

如果是3000多个单元格的话，建议用数组，同时增加exit for，以提高程序运行效率

1. Sub 查找()
   
2. ar = [c1:c3000]
   
3. For n = 1 To UBound(ar)
   
4.     If ar(n, 1) = "总计" Then
   
5.         a = n
   
6.         Exit For
   
7.     End If
   
8. Next n
   
9. b = 3
   
10. MsgBox "行号为" & a & "-" & "列号为" & b
    
11. End Sub

复制代码