列ヘッダーを検索し、宛先シートにヘッダーをコピー

Question

ここで小さなヘルプが必要です。ヘッダーの名前は、黄色の強調表示された行です。マスターシートが表示されたら、アドレスがC列にあります。列はD列にある可能性があります。そのため、ヘッダー名を検索して宛先シートにコピーできるコードを調整するのに役立つ人がほしいです。たとえば、選択したヘッダーのみを列全体またはヘッダー行全体にコピーする必要があります。スチューデント名、スチューデントID、およびセクションのみをコピー先シートにコピーする

ご協力いただけると助かります。

Sub test5() 
    Dim Headers As Variant 
    Dim i As Long 
    Dim SourceColumn As Range 
    Dim DestinationSheet As Worksheet 

    Set DestinationSheet = ThisWorkbook.Sheets("destination") 
    Headers = Array("StudentName", "StudentID", "Address") 

    For i = LBound(Headers) To UBound(Headers) 
     With ThisWorkbook.Sheets("Mastersheet").Rows(1) 
      Set SourceColumn = .Find(Headers(i), after:=.Cells(1, 1), MatchCase:=False) 
     End With 

     If Not SourceColumn Is Nothing Then 
      Headers.Copy Destination:=DestinationSheet.Range("A4:G3") 
     End If 
    Next i 

End Sub 

Answer 1

あなたが求めているものは非常に明確ではありません。この

Sub copyheadernames() 

    Sheets("Mastersheet").Range("A1").CurrentRegion.Rows(1).Copy Destination:=Sheets("destination").Range("A1") 

End Sub