使用Excel宏循环不同单元格区域：代码错误排查咨询

嘿，虽说你没贴出具体的代码，但结合你想要的结果——让E、F列显示4、6、12、14，我来梳理这类场景下最容易犯的错误，再给你能实现需求的参考代码。

常见错误点 #

• 循环范围找错了：很多新手会误选不对的单元格区域，比如本来要处理的是源数据区域，结果选成了E/F列本身，或者范围大小和要填的数值数量不匹配（比如你要填4个值，结果选了3个单元格的范围）。
• 赋值逻辑搞反了：比如你要的数值是源数据运算后的结果（比如2×2、3×2、6×2、7×2），但代码里的运算式写错了，或者没对应好E、F列的位置。
• 单元格引用出错：比如用相对引用时没考虑循环中的偏移，或者混用Range和Cells的写法，导致数值填到了错误的单元格里。
• 循环结构不对：比如用For Each遍历的时候，没正确关联目标单元格；或者For循环的起始、结束索引设置错了，导致循环次数不够或过多。

能实现需求的参考代码 #

假设你要给示例工作表的E1:F2区域填入目标数值，这里有两种常见写法：

直接赋值版

如果不需要计算，直接把指定数值填入对应单元格：

Sub FillEFDirectly()
    Dim targetArea As Range
    Dim valueList As Variant
    Dim index As Integer
    
    ' 定义要填入的数值，顺序对应E1、F1、E2、F2
    valueList = Array(4, 6, 12, 14)
    ' 指定目标单元格区域
    Set targetArea = ThisWorkbook.Sheets("示例工作表").Range("E1:F2")
    
    index = 0
    ' 循环遍历每个单元格赋值
    For Each cell In targetArea
        cell.Value = valueList(index)
        index = index + 1
    Next cell
End Sub

基于源数据计算版

如果目标数值是从其他单元格计算来的（比如源数据在A1:B2，每个值×2得到结果）：

Sub CalculateEFValues()
    Dim sourceArea As Range
    Dim targetArea As Range
    Dim rowNum As Integer, colNum As Integer
    
    Set sourceArea = ThisWorkbook.Sheets("示例工作表").Range("A1:B2")
    Set targetArea = ThisWorkbook.Sheets("示例工作表").Range("E1:F2")
    
    ' 逐行逐列循环计算赋值
    For rowNum = 1 To sourceArea.Rows.Count
        For colNum = 1 To sourceArea.Columns.Count
            targetArea.Cells(rowNum, colNum).Value = sourceArea.Cells(rowNum, colNum).Value * 2
        Next colNum
    Next rowNum
End Sub

你可以对照自己的代码看看，是不是踩了上面提到的某个坑。比如如果你的数组索引没处理好（VBA数组默认从0开始，除非你加了Option Base 1），或者循环范围和数值数量不匹配，都会导致结果不对。

内容的提问来源于stack exchange，提问作者A. H.