VBA跨工作簿循环复制列数据异常：无法实现指定位置粘贴

原代码存在的问题 #

• 变量声明不规范：Wrksht1、Wrksht2和循环变量I未在Dim块中声明，易引发隐式错误
• Range引用逻辑错误：Range(K & 9)的写法不符合VBA单元格定位规则，无法正确选中目标区域
• 数据流向搞反：原代码将目标区域值赋给源区域，与需求的从Workbook1复制到Workbook2方向相反
• 仅处理单个单元格：未覆盖需求中第9行到700行的整列数据范围

修正后的代码 #

Option Explicit

Sub importdata()
    Dim wb1 As Workbook, wb2 As Workbook
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim targetCol As Integer, sourceCol As Integer
    Dim i As Integer
    
    ' 绑定目标工作簿和工作表
    Set wb1 = Workbooks("Workbook1.xlsm")
    Set wb2 = Workbooks("Workbook2.xlsb")
    Set ws1 = wb1.Sheets("Worksheet1")
    Set ws2 = wb2.Sheets("Worksheet2")
    
    ' 初始化列号：目标列从F列（第6列）开始，源列从M列（第13列）开始
    targetCol = 6
    sourceCol = 13
    
    ' 循环处理24列数据
    For i = 1 To 24
        ' 复制源工作表当前列的第9-700行数据，粘贴到目标工作表对应列的第8行起始位置
        ws1.Range(ws1.Cells(9, sourceCol), ws1.Cells(700, sourceCol)).Copy _
            Destination:=ws2.Cells(8, targetCol)
            
        ' 更新列号：目标列间隔8列，源列依次后移1列
        targetCol = targetCol + 8
        sourceCol = sourceCol + 1
    Next i
End Sub

关键修改说明 #

• 加入Option Explicit：强制变量声明，避免因变量名拼写错误导致的bug
• 修正列号映射：目标列从F（6）开始、每次+8，源列从M（13）开始、每次+1，完全匹配需求中的列位置规则
• 整列范围复制：用Range(Cells(9, sourceCol), Cells(700, sourceCol))精准选中源数据的行范围，确保复制完整数据
• 正确数据流向：使用Copy方法直接将源区域数据粘贴到目标区域，符合需求逻辑

内容的提问来源于stack exchange，提问作者Peter