一个VBA群里有个网友求助，我写了个试试，好像可以。。。以后在改进
Sub test_find1()
Dim sh1 As Object
Dim cell1 As Object
Dim arr1()
target1 = "A"
I = 1
For Each sh1 In ThisWorkbook.Worksheets
ReDim Preserve arr1(1 To I)
arr1(I) = sh1.Name
I = I + 1
Next
Debug.Print "符合查找目标" & target1 & "的单元格有如下这些："
For Each I In arr1
For Each cell1 In Sheets(I).UsedRange '有中文sheet名好像会报错，现在还没查原因
If cell1.Value = target1 Then
Debug.Print I & ".cells（" & cell1.Row & "," & cell1.Column & "）"
End If
Next
Next
End Sub
