Excel VBA -从每日更改数据的列表中追加数值

Sub AppendData()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim lastRowSource As Long
    Dim lastRowTarget As Long
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Worksheets("源工作表名称")
    Set targetSheet = ThisWorkbook.Worksheets("目标工作表名称")
    
    ' 获取源工作表和目标工作表的最后一行
    lastRowSource = sourceSheet.Cells(sourceSheet.Rows.Count, 1).End(xlUp).Row
    lastRowTarget = targetSheet.Cells(targetSheet.Rows.Count, 1).End(xlUp).Row
    
    ' 将源工作表中的数据追加到目标工作表中
    For i = 2 To lastRowSource ' 假设数据从第二行开始，第一行是标题行
        lastRowTarget = lastRowTarget + 1
        targetSheet.Cells(lastRowTarget, 1) = sourceSheet.Cells(i, 1) ' 假设数据在源工作表的第一列
        ' 可以根据需要追加更多列的数据
    Next i
    
    MsgBox "数据追加完成。"
End Sub