如何用VBA将指定列的内容自动填充到指定的工作表中指定的列

以下是使用VBA将指定列的内容自动填充到指定的工作表中指定的列的步骤： 1. 打开您要运行VBA代码的Excel文件，按下“Alt + F11”打开Visual Basic Editor。 2. 在左侧的“项目资源管理器”窗口中，双击要添加代码的工作簿。 3. 在“工作簿”对象的代码窗口中，输入以下代码： ``` Sub CopyColumnToAnotherSheet() Dim sourceSheet As Worksheet Dim targetSheet As Worksheet Dim lastRow As Long '设置源工作表和目标工作表 Set sourceSheet = ThisWorkbook.Worksheets("源工作表名称") Set targetSheet = ThisWorkbook.Worksheets("目标工作表名称") '获取源工作表中需要复制的列的最后一行 lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, "A").End(xlUp).Row '将源工作表中的数据复制到目标工作表中 sourceSheet.Range("A1:A" & lastRow).Copy Destination:=targetSheet.Range("B1") End Sub ``` 4. 将代码中的“源工作表名称”和“目标工作表名称”替换为您实际使用的工作表名称。 5. 按下“F5”运行代码，或者在“开发人员”选项卡中单击“宏”按钮并选择要运行的宏。 6. 代码将自动将源工作表中的指定列复制到目标工作表中的指定列。 请注意，此代码仅适用于将单个列从源工作表复制到目标工作表。如果您需要复制多个列或更复杂的操作，请相应地修改代码。