VBA定位功能

林木水

例如A1:C5有这些内容，想用VBA定位值为5的所有单元格，并选取。

请各位老师指教，谢谢！

楚雪飞扬

Sub 查找上色()
    s = InputBox("请输入查找的编号", , 5)
    With Sheet1.[A:C]
    Set c = .Find(s, LookIn:=xlValues, After:=[B1], SearchOrder:=xlByRows)
        If Not c Is Nothing Then
            firstAddress = c.Address '记录第一个找到的地址
            Do
                c.Interior.Color = 49407
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> firstAddress
        End If
    End With
End Sub

金樽空对月

详见附件，代码如下：

1. Sub myselect()
   
2. On Error Resume Next
   
3. Dim rg1, rg2 As Range, k&, num&
   
4. num = Val(InputBox("请输入要选择的数字："))
   
5. For Each rg1 In Sheet1.UsedRange
   
6.     If rg1 = num Then
   
7.         k = k + 1
   
8.         If k = 1 Then Set rg2 = rg1
   
9.         Set rg2 = Union(rg2, rg1)
   
10.     End If
    
11. Next
    
12. If k <> 0 Then
    
13.     rg2.Select
    
14. Else
    
15.     MsgBox "区域内没有此数字"
    
16. End If
    
17. End Sub

复制代码

林木水

金樽空对月 发表于 2022-5-10 21:05
详见附件，代码如下：

如果不用循环，有没有方法定位，代码越短越好