查找指定数字在工作表中的所有出现过位置的行名称和列名称 ...
查找指定数字在工作表中的所有出现过位置的行名称和列名称。一个工作簿中有多个工作表。如何查找指定数字在所有工作表中的所有位置的行名称和列名称。 查找对话框中,选工作簿,如找:“1”可以用vba实现,遍历所有的工作表,然后使用find方法在工作表里找你要的数字,就可以了 Sub vFindAddress()
Dim f As Range,ar()
For j = 1 To WorkSheets.Count
With Worksheets(i).UsedRange
Set f = .Find(2) '查找指定数值2
n = f.Address
Do
RedimPreserve ar(i)
Set f = .FindNext(f)
ar(i) = f.Address
i = i + 1
Loop Until f.Address = n
End With
Next
End Sub
页:
[1]