查找指定数字在工作表中的所有出现过位置的行名称和列名称 ...

郑新生

查找指定数字在工作表中的所有出现过位置的行名称和列名称。  一个工作簿中有多个工作表。如何查找指定数字在所有工作表中的所有位置的行名称和列名称。

壹叁点伍柒文化交流

查找对话框中，选工作簿，如找：“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