请问如何用VBA 在工作薄里多个工作表中查找关键字

zwf33

请问如何用VBA 在一个工作薄里有多个工作表中查找关键字“龙头”并复制行到新的工作表，诚谢！

sxfxtf

只懂得怎么查找关键字,至于要在多个工作表范围查找我就不太懂了,同求.查找代码如下
Sub test()
Dim rng As Range
With ActiveSheet.UsedRange.Cells
Set rng = .Find(What:="龙头", _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlFormulas, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)

Do Until rng Is Nothing
Set rng = ActiveSheet.UsedRange.FindNext(rng)
Loop
End With
End Sub

zwf33

sxfxtf 发表于 2017-1-9 23:09
只懂得怎么查找关键字,至于要在多个工作表范围查找我就不太懂了,同求.查找代码如下
Sub test()
Dim rng A ...

谢谢！
我小白一个。。。。。

sxfxtf

zwf33 发表于 2017-1-9 23:18
谢谢！
我小白一个。。。。。

哈 我也略懂皮毛

zwf33

88131488 发表于 2017-1-9 23:07
这说的太模糊了，大体上是这样一个思想
dim shet as sheet
for each shet in thisworkbook

关键词可能在A列，也可能在B列，请帮忙，谢谢！

saghj

For Each w In ThisWorkbook.Worksheets
  If w.Name <> ws.Name Then
    For Each cell In w.UsedRange
      If InStr(cell.Value, "龙头") > 0 Then
        i = i + 1
        w.Rows(cell.Row).Copy ws.Rows(i)
      End If
    Next cell
  End If
Next w