VBA 如何实现在EXCEL多张表里搜索目标内容，并标记处行号，列号？

最新推荐文章于 2023-06-15 10:07:39 发布

奔跑的犀牛先生

最新推荐文章于 2023-06-15 10:07:39 发布

阅读量875

点赞数

本文链接：https://blog.csdn.net/xuemanqianshan/article/details/104040300

版权

一个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