如何使用宏将现有数据从Sheet1更新到Sheet2？

Sub UpdateData()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Sheets("Sheet1")
    Set targetSheet = ThisWorkbook.Sheets("Sheet2")
    
    ' 获取源工作表中最后一行的行号
    lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, "A").End(xlUp).Row
    
    ' 循环复制数据到目标工作表
    For i = 1 To lastRow
        targetSheet.Cells(i, "A").Value = sourceSheet.Cells(i, "A").Value
        targetSheet.Cells(i, "B").Value = sourceSheet.Cells(i, "B").Value
        ' 继续复制其他列的数据...
    Next i
    
    MsgBox "数据更新完成！"
End Sub