寻找有关将在每个工作表中的两个动态表之间创建操作的Excel VB代码的指导。

Sub CreateOperation()
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim lastRow1 As Long
    Dim lastRow2 As Long
    Dim i As Long
    
    ' 设置要操作的工作表
    Set ws1 = ThisWorkbook.Worksheets("Sheet1") ' 第一个动态表
    Set ws2 = ThisWorkbook.Worksheets("Sheet2") ' 第二个动态表
    
    ' 获取第一个动态表的最后一行
    lastRow1 = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row
    
    ' 获取第二个动态表的最后一行
    lastRow2 = ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row
    
    ' 复制第一个动态表的数据到第二个动态表
    For i = 1 To lastRow1
        ws2.Cells(lastRow2 + i, 1).Value = ws1.Cells(i, 1).Value
        ws2.Cells(lastRow2 + i, 2).Value = ws1.Cells(i, 2).Value
        ' 可根据实际情况复制更多列的数据
    Next i
    
    ' 清空第一个动态表的数据
    ws1.Range("A2:B" & lastRow1).ClearContents
    ' 可根据实际情况调整清空的范围
    
    ' 提示操作完成
    MsgBox "操作已完成！"
End Sub