VBA 循环遍历工作簿查找特定文本并复制行

Sub FindAndCopy() Dim ws As Worksheet '定义当前工作表 Dim searchRange As Range '定义查找范围 Dim foundCell As Range '定义找到的单元格 Dim copyRow As Range '定义复制的行

For Each ws In ThisWorkbook.Worksheets '遍历每个工作表
    Set searchRange = ws.Cells '将查找范围设置为当前工作表的所有单元格
    Set foundCell = searchRange.Find('软件工程') '查找包含'软件工程'的单元格
    If Not foundCell Is Nothing Then '如果找到了
        Set copyRow = foundCell.EntireRow '将包含该单元格的整行复制到copyRow变量中
        copyRow.Copy Destination:=ActiveSheet.Range('A' & Rows.Count).End(xlUp).Offset(1, 0) '粘贴到当前工作表的下一行
    End If
Next ws

End Sub