[已解决]怎么通过vba查找多个sheet中内容。

zzxuexi

想通过宏实现，在sheet2、3、4、5、6中查找sheet1，中b1单元格内容，返回查找到单元格所在sheet的位置，所在行列数。高手给指导一下，通过什么方法可以实现。

最佳答案

月排行榜 / 总排行榜

grf1973

2017-7-24 16:23

1. Sub tt()
   
2.     Dim FindRng As Range
   
3.     x = Sheets(1).[b1]
   
4.     For i = 2 To 6
   
5.         Set FindRng = Sheets(i).UsedRange.Find(x)
   
6.         If Not FindRng Is Nothing Then
   
7.             msg = msg & Chr(10) & "工作表：" & Sheets(i).Name & "  行：" & FindRng.Row & "  列：" & FindRng.Column
   
8.         End If
   
9.     Next
   
10.     MsgBox Mid(msg, 2)
    
11. End Sub
    

复制代码

跳转到最佳答案楼层

大灰狼1976

1. Sub aaa()
   
2. Dim i&, s$, rng As Range, s1$
   
3. s = Sheets(1).[b1]
   
4. For i = 2 To 6
   
5.   Set rng = Sheets(i).Cells.Find(s, lookat:=xlWhole)
   
6.   If Not rng Is Nothing Then s1 = s1 & Chr(10) & Sheets(i).Name & "!" & rng.Address(0, 0)
   
7. Next i
   
8. MsgBox Mid(s1, 2)
   
9. End Sub

复制代码

grf1973

1. Sub tt()
   
2.     Dim FindRng As Range
   
3.     x = Sheets(1).[b1]
   
4.     For i = 2 To 6
   
5.         Set FindRng = Sheets(i).UsedRange.Find(x)
   
6.         If Not FindRng Is Nothing Then
   
7.             msg = msg & Chr(10) & "工作表：" & Sheets(i).Name & "  行：" & FindRng.Row & "  列：" & FindRng.Column
   
8.         End If
   
9.     Next
   
10.     MsgBox Mid(msg, 2)
    
11. End Sub
    

复制代码

zzxuexi

厉害，多谢楼上的回复。