Makro für die Suche nach Text in einem anderen Blatt, Suche nach Spalte und Kopieren/Einfügen in das Originalblatt

Question

Ich versuche, einen Code zu machen, der Text, den Sie in A1 von Sheet 2 eingegeben haben (nennen wir es) "zap") und suchen Sie danach in Zeile 1 von Blatt 1.

Wenn die spezifische Spalte von Zeile 1 gefunden wird, in der sich auch eine Zelle mit der Bezeichnung "zap" befindet, kopiert sie die gesamte Spalte in Spalte B in Blatt 2 .

Ich bin ziemlich neu im Schreiben von Makros, aber habe mit MATLAB, cogent, ein wenig Java gearbeitet und hoffe, neue Sachen zu lernen! Vielen Dank im Voraus für die Hilfe !!

Answer 1

Bedenken Sie:

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