在VBA中，可以使用Range.Find方法来查找一列中的指定数据。下面是一个示例代码：
Sub FindData()
Dim rng As Range
Dim targetValue As Variant
Dim firstAddress As String
' 设置要查找的数据
targetValue = "ABC"
' 设置要查找的范围
Set rng = Range("A1:A10")
' 使用Find方法查找数据
Set rng = rng.Find(targetValue, LookIn:=xlValues)
' 如果找到了数据
If Not rng Is Nothing Then
firstAddress = rng.Address
Do
' 在这里可以对找到的数据进行处理
MsgBox "找到了 " & targetValue & " 在单元格 " & rng.Address
' 继续查找下一个匹配项
Set rng = rng.FindNext
Loop While Not rng Is Nothing And rng.Address <> firstAddress
Else
' 如果未找到数据
MsgBox targetValue & " 未找到"
End If
End Sub
在上述代码中，首先将要查找的数据存储在targetValue变量中，然后将要查找的范围设定为Range("A1:A10")。然后使用Find方法在指定范围中查找数据。如果找到了数据，会将其存储在rng变量中，并用Address属性获取单元格地址。然后使用FindNext方法继续查找下一个匹配项，直到再次找到初始地址或找不到更多匹配项为止。如果未找到指定数据，会弹出一条消息框提示。
