VBA如何在跨表循环转移单元格值时，每次粘贴后偏移5行放置后续值

现有代码的核心修正点 #

• 补充moveDest的Range类型声明，必须使用Set关键字绑定工作表单元格对象，否则后续无法跟踪动态变化的写入位置
• 移除冗余的cell.Cells(1)写法，直接读取单元格Value属性即可
• 每完成一次值写入，通过Offset方法将写入位置向下移动5行，自动定位下一个目标单元格

修正后的可直接运行代码 #

' 优化变量类型定义，提升运行性能
Dim counter As Long, carModel As Variant
Dim theRange As Range, row As Range, cell As Range
Dim moveDest As Range

' 统计源表有效数据行
counter = Sheets("Sheet1").UsedRange.Rows.Count
' 定义需要遍历的源数据范围（A2:G列最后一行）
Set theRange = Sheets("Sheet1").Range(Sheets("Sheet1").Cells(2, 1), Sheets("Sheet1").Cells(counter, 7))
' 初始化目标表的写入起点为A1单元格
Set moveDest = Sheets("Destination").Cells(1, 1)

For Each row In theRange.Rows
    For Each cell In row
        ' 读取当前遍历到的源单元格值
        carModel = cell.Value
        ' 可选：跳过源单元格空值，不需要的话删除该判断分支即可
        If Trim(carModel & "") <> "" Then
            ' 将值写入当前目标位置
            moveDest.Value = carModel
            ' 位置下移5行，作为下一次写入的目标
            Set moveDest = moveDest.Offset(5, 0)
        End If
    Next
Next

关键逻辑说明 #

• 偏移量Offset(5,0)的含义是：相对于当前写入位置，垂直方向向下偏移5行、水平方向偏移0列。如果你的需求是两个相邻值之间间隔4个空行（即中间留空，下一个值在当前行的下5行位置），这个参数完全匹配；如果需要调整间隔行数，直接修改第一个参数值即可。
• 原代码中未给moveDest加Set赋值，会导致变量存储的是A1的单元格值而非位置对象，是循环写入失败的最常见原因。
• 整个过程不需要额外维护行号计数器，全部由Range对象的位置跟踪完成，代码维护成本更低。

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