利用vba将一列数据复制至新工作表的I列

在VBA (Visual Basic for Applications) 中，你可以通过宏来轻松地将一列数据从一个工作表复制到另一个工作表的特定列。以下是一个简单的步骤和示例代码：

1. 打开VBA编辑器：在Excel中按 `Alt + F11` 进入 VBA 编辑器。

2. 创建一个新的模块：在左侧窗格中右键点击 "Sheet1"（假设这是包含原始数据的工作表），然后选择 "插入" -> "模块"。

3. 编写复制代码：在新的模块窗口中，粘贴下面的代码。这里我们假设原数据在源工作表A1单元格开始，目标工作表名称为 "NewSheet"，并且目标列是I列：

Sub CopyDataToNewSheet()
    Dim SourceSheet As Worksheet
    Dim TargetSheet As Worksheet
    Dim StartRow As Long
    
    ' 设置源工作表和目标工作表
    Set SourceSheet = ThisWorkbook.Sheets("Sheet1")
    Set TargetSheet = ThisWorkbook.Sheets("NewSheet")
    
    ' 设定起始行，这里假设是从第一行开始
    StartRow = 1
    
    ' 将源工作表A列的数据复制到目标工作表I列
    TargetSheet.Range("I" & StartRow).Resize(SourceSheet.Rows.Count).Value = SourceSheet.Range("A:A").Value
End Sub

4. 运行宏：在代码窗口顶部，点击 "运行" 或者按下 `F5` 来执行这个宏，数据就会被复制过去。