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

Question

我正在尝试创建一个代码，用于查看您在Sheet 2的A1中键入的文本（让我们称之为“zap”）并在Sheet 1的第1行中搜索它。

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

我很擅长编写Macros，但是他们使用MATLAB，有说服力，有点Java，并希望学习新东西！提前谢谢你的帮助!!

Answer 1

考虑：

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