excel 用sql查询sheet1的内容复制到sheet2vba

可以使用VBA编写一个宏来实现将Sheet1的内容复制到Sheet2的功能。以下是一个示例代码：

Sub CopySheet1ToSheet2()
    Dim wsSource As Worksheet
    Dim wsDestination As Worksheet
    Dim lastRow As Long
    
    '设置源工作表和目标工作表
    Set wsSource = ThisWorkbook.Sheets("Sheet1")
    Set wsDestination = ThisWorkbook.Sheets("Sheet2")
    
    '确定源工作表中最后一行的行号
    lastRow = wsSource.Cells(wsSource.Rows.Count, 1).End(xlUp).Row
    
    '将源工作表的内容复制到目标工作表
    wsSource.Range("A1:Z" & lastRow).Copy Destination:=wsDestination.Range("A1")
End Sub

要使用这个宏，只需按下Alt + F11打开VBA编辑器，然后将代码复制粘贴到一个模块中。然后，按下Alt + F8打开宏对话框，选择"CopySheet1ToSheet2"并点击运行按钮。这将复制Sheet1中的内容到Sheet2中。请注意，此代码假定源工作表中的数据从A1开始，并且目标工作表中的数据也从A1开始。如果有其他需求，请根据实际情况进行调整