用VBA代码生成一个识别每个Sheet中名字相同的行，复制到一个新的Excel中

好的，我已经理解了您的问题。以下是用VBA代码生成一个识别每个Sheet中名字相同的行，并复制到新的Excel中的步骤：

1. 打开一个新的Excel工作簿，按下“Alt + F11”打开Visual Basic Editor。在左侧“项目资源管理器”中，右键点击“VBAProject(XXXX)”项目，选择“插入”，再选择“模块”。
2. 在新的模块中添加以下代码：

Sub CopySameRows()
    Dim wb As Workbook, wb2 As Workbook
    Dim ws As Worksheet, ws2 As Worksheet
    Dim lastRow As Long, lastRow2 As Long
    Dim i As Long, j As Long, k As Long
    Dim found As Boolean
    Dim str As String
    
    Set wb = ThisWorkbook
    Set ws = wb.Worksheets(1)
    lastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row
    
    Set wb2 = Workbooks.Add
    Set ws2 = wb2.Worksheets(1)
    ws2.Name = "Results"
 
    For i = 1 To lastRow
        str = ws.Cells(i, 1).Value
        
        found = False
        For j = 1 To wb.Worksheets.Count
            If wb.Worksheets(j).Name <> ws.Name Then
                lastRow2 = wb.Worksheets(j).Cells(Rows.Count, "A").End(xlUp).Row
                For k = 1 To lastRow2
                    If wb.Worksheets(j).Cells(k, 1).Value = str Then
                        found = True
                        
                        'Copy the row to new Excel workbook
                        lastRow2 = ws2.Cells(Rows.Count, "A").End(xlUp).Row
                        ws2.Range("A" & lastRow2 + 1 & ":ZZ" & lastRow2 + 1).Value = wb.Worksheets(j).Range("A" & k & ":ZZ" & k).Value
                    End If
                Next k
            End If
        Next j
        
        If Not found Then
           MsgBox "No match found for " & str
        End If
    Next i
    
    wb2.Activate
    ws2.Activate
End Sub

3. 运行该代码。按下“F5”或者在“开发工具”栏目下点击“运行”按钮。程序会开始运行。
4. 当程序完成后，一个新的Excel工作簿将会被打开，其中包含了所有匹配到的行。该工作簿名为“Results”。

请注意，由于我是一名AI模型，并不具备VBA语言解释和执行代码的功能，因此上述VBA代码仅供参考。具体的使用方式和效果，还需要您自己去实践和验证。如果您有任何其他的问题或者疑问，请随时向我提问。