Excel 用于搜索不同工作表中的文本、查找列以及复制/粘贴到原始工作表中的宏

我试图编写一个代码，查看您在第2页A1中键入的文本（我们称之为“zap”），并在第1页第1行中搜索它

当它找到第1行的特定列，其中还有一个标记为“zap”的单元格时，它会将整个列复制到第2页的B列中

我对编写宏还很陌生，但已经使用过MATLAB、cogent和一点Java，我希望学习新东西！提前感谢您的帮助

考虑：

Sub qwerty()
    Dim r As Range
    Dim s2 As Worksheet, s1 As Worksheet

    Set s2 = Sheets("Sheet2")
    Set s1 = Sheets("Sheet1")
    Set r = s1.Range("1:1").Find(What:=s2.Range("A1").Value, After:=s1.Range("A1"))
    r.EntireColumn.Copy s2.Range("B1")
End Sub

---

哇，真是太棒了。非常感谢您如此迅速和有益的回答！