如何在VBA For Each循环中使masterlist变量每次下移11行？

问题根源 #

For Each masterlist In tableau_cc 是遍历tableau_cc范围内的所有单元格，修改循环变量masterlist的偏移量不会改变循环的遍历顺序——循环仍会按原Range集合的顺序逐个取单元格，这就会导致你遇到的重复处理、数据覆盖问题。

可行解决方案 #

方案1：改用For循环按固定步长遍历

直接通过行号控制，每次跳过11行，精准定位目标单元格，扩展性极强（改步长数字就能调整跳过行数）。

Dim startRow As Long, endRow As Long, i As Long
Dim tableau_cc As Range
Set tableau_cc = ThisWorkbook.Sheets("你的工作表名").Range("目标范围") '替换成你的实际范围

startRow = tableau_cc.Row
endRow = tableau_cc.Row + tableau_cc.Rows.Count - 1

'从起始行开始，每次步长11遍历
For i = startRow To endRow Step 11
    Set masterlist = tableau_cc.Worksheet.Cells(i, tableau_cc.Column)
    
    '----- 这里写入你的匹配填充逻辑 -----
    '例如：
    'If masterlist.Value = 组件清单单元格.Value Then
    '    masterlist.Offset(0, 1).Value = "匹配成功" '填充指定单元格
    'End If
Next i

方案2：提前筛选目标单元格集合再遍历

先把所有需要处理的单元格（每11行一个）收集到新的Range对象中，再用For Each遍历这个集合，逻辑更清晰，适合需要额外筛选条件的场景。

Dim targetCells As Range, cell As Range
Dim tableau_cc As Range
Set tableau_cc = ThisWorkbook.Sheets("你的工作表名").Range("目标范围") '替换成你的实际范围

'遍历原范围，筛选出每11行的单元格
For Each cell In tableau_cc
    '判断当前 cell 是原范围的第1、12、23...行（相对于起始行的偏移量模11等于0）
    If (cell.Row - tableau_cc.Row) Mod 11 = 0 Then
        If targetCells Is Nothing Then
            Set targetCells = cell
        Else
            Set targetCells = Union(targetCells, cell)
        End If
    End If
Next cell

'遍历筛选后的目标单元格
If Not targetCells Is Nothing Then
    For Each masterlist In targetCells
        '----- 这里写入你的匹配填充逻辑 -----
    Next masterlist
End If

为什么原方法失效？ #

For Each循环的迭代逻辑是绑定初始的Range集合的，你修改masterlist = masterlist.Offset(11, 0)只是让当前变量指向了另一个单元格，但循环的下一次迭代还是会取原集合里的下一个单元格，相当于同时处理了两个不同的单元格，最终导致数据覆盖或逻辑混乱。

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