搜索工作簿中的單元格值並復制整個行和標題

Question

我已經嘗試了所有可能的方法來搜索並找到解決該問題的方法，但無濟於事，我的問題是在工作簿的不同工作表中搜索特定的單元格值，並將整行及其標題一起復制（每張工作表都有不同的標題例如Lab1，Name，Date，Lab Test Type，LabType N，Name，Date，Test Type等）並循環遍歷，直到找到帶有各自標題的最后一個值。 在這方面的任何幫助將不勝感激，請原諒我不知道正確的提問方式，因為我完全是該論壇的新手。 下面的代碼為我提供了搜索單元格的結果，但是因為每個搜索結果都有其自己的標頭，但我沒有得到結果，因為它僅通過循環粘貼了整個單元格，但沒有粘貼標頭。 這是例子。
Sheet2的名稱日期年齡性別細胞編號測試類型為A1：F1
Sheet3具有名稱日期年齡性別單元格否測試類型2 X射線范圍A1：G1
Sheet4具有名稱日期年齡性別單元格否測試類型3 X射線ECG A1：H1

Option Explicit
Option Compare Text '< ignore case
Sub AllRecordSearchMacroForPhone()
    Dim FirstAddress As String
    Dim c As Range, Sheet As Worksheet
    Dim rng As Range
    Set rng = Range("D1")
    If rng = Empty Then Exit Sub
    For Each Sheet In Sheets
        If Sheet.Name <> "Sheet1" Then
            With Sheet.Columns(5)
                Set c = .find(rng, LookIn:=xlValues, LookAt:=xlWhole)
                If Not c Is Nothing Then
                    FirstAddress = c.Address
                    Do
                        c.EntireRow.Copy _
                              Destination:=Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
                        Set c = .FindNext(c)
                    Loop Until c.Address = FirstAddress
                End If
            End With
        End If
    Next Sheet
    Set c = Nothing
End Sub

Answer 1

在代碼中添加標記行：

If Not c Is Nothing Then
  >>Sheet.Rows(1).Copy Destination:=Sheets("Sheet1").Range("A" & Sheets("Sheet1").Rows.Count).End(xlUp).Offset(1, 0)
    FirstAddress = c.Address