搜索列 Headers 并将 Headers 复制到目标表-Java 学习之路

-1

我需要一个小帮助， Headers 名称是黄色突出显示的行，现在如果你看到Mastersheet地址在C列，如果新数据出现，那么地址列可能在D列，因此我希望有人帮助我调整可以搜索 Headers 名称并复制到目标表的代码，我只希望复制选定的 Headers 而不是整个列或整个 Headers 行，例如只有StudentName，StudentID和Section要复制到目标表

任何帮助，将不胜感激 .

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

The yellow highlighted Names are the headers

Destination Sheet

1 回答

试试这个

Sub copyheadernames()

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

End Sub

回复于 2024-05-15T04:09:26+08:00

搜索列 Headers 并将 Headers 复制到目标表

1 回答

相关问题