用于在工作簿的多个工作表中查找单元格值并将找到的单元格左侧的所有内容复制到主工作表的宏

Question

正如您在下面的代码中看到的那样，我可以让它查看 1 张纸并复制该单元格的剩余部分，偏移量为 2 个单元格（超过 2 个单元格我会收到错误，因为在某些情况下它是工作表的限制到左边）代码中缺少的是：

1. 查看工作簿的所有工作表
2. 分别复制找到的单元格左侧的所有内容，如下所示：

• -1 找到的单元格转到 +1 主单元格
• -2 找到的单元格转到 +2 主单元格
• -3 找到的单元格转到 +3 主单元格，依此类推

请帮助在此处输入图像描述

    'Sub Plan_Rout()
     Dim Fnd As Range, Cl As Range

     With Sheets("sheet1")
     For Each A1 In .Range("A2", .Range("A" & Rows.Count).End(xlUp))
     Set Fnd = Sheets("Sheet2").Range("A1:Z100").Find(A1.Value, , xlFormulas, xlWhole, 
     xlByRows, xlPrevious, False, , False)

     If Not Fnd Is Nothing Then A1.Offset(, 1).Value = Fnd.Offset(, -1).Value
     If Not Fnd Is Nothing Then A1.Offset(, 2).Value = Fnd.Offset(, -2).Value
     Next A1
     End With
     End Sub' 

 

谢谢