循环通过worhsheet excel vba并在另一个工作表上返回数据

Sub LoopThroughWorksheet()
    Dim ws As Worksheet
    Dim targetWs As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置目标工作表
    Set targetWs = ThisWorkbook.Sheets("目标工作表名称")
    
    ' 循环遍历所有工作表
    For Each ws In ThisWorkbook.Sheets
        ' 排除目标工作表
        If ws.Name <> targetWs.Name Then
            ' 获取当前工作表的最后一行
            lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
            
            ' 循环遍历当前工作表的数据
            For i = 1 To lastRow
                ' 判断条件并将符合条件的数据复制到目标工作表
                If ws.Cells(i, 1).Value = "条件" Then
                    ' 将数据复制到目标工作表的下一行
                    targetWs.Cells(targetWs.Cells(targetWs.Rows.Count, 1).End(xlUp).Row + 1, 1).Value = ws.Cells(i, 1).Value
                End If
            Next i
        End If
    Next ws
End Sub