vba 将sheet1表的A列到K列内容复制到sheet2表

您可以使用以下VBA代码将Sheet1表的A列到K列的内容复制到Sheet2表：

Sub CopyColumns()
    Dim sourceSheet As Worksheet
    Dim destinationSheet As Worksheet
    
    ' 设置源表和目标表
    Set sourceSheet = ThisWorkbook.Sheets("Sheet1")
    Set destinationSheet = ThisWorkbook.Sheets("Sheet2")
    
    ' 获取源表的最后一行
    Dim lastRow As Long
    lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, "A").End(xlUp).Row
    
    ' 复制源表的A列到K列内容到目标表
    sourceSheet.Range("A:K").Copy Destination:=destinationSheet.Cells(1, 1)
    
    ' 调整目标表的行高和列宽以适应内容
    destinationSheet.Rows.AutoFit
    destinationSheet.Columns.AutoFit
End Sub

将此代码复制到VBA编辑器中（按下`Alt`+`F11`打开），然后可以运行`CopyColumns`子程序来执行复制操作。请确保在运行代码之前已经打开了源表和目标表。此代码将复制源表的A列到K列的内容到目标表的第一行第一列开始的位置，并自动调整目标表的行高和列宽以适应内容。