excel VBA基于其他筛选列填充列

Question

我正在尝试根据旁边的过滤列填充空工作表列。这就是我捕获两列以仅包含和执行可见行的方式：

Set rng = Range("M2:M" & Cells(Rows.Count, "M").End(xlUp).Row).SpecialCells(xlCellTypeVisible)
Set rng2 = Range("N2:N" & Cells(Rows.Count, "M").End(xlUp).Row).SpecialCells(xlCellTypeVisible)

假设我在rCell中有一个值。我现在要将rCell添加到rng中的所有单元格值，并将其放入rng2的同一行

我尝试遍历rng中的每个单元格，添加rCell并将其值放入rng2的相应行

        i = 0
        For Each cl In rng
            rng2(i).Value = cl + rCell
            i = i + 1
        Next

cl设法获取rng的已过滤单元格的正确值，但会将其添加到rng2的未过滤列中。因此，索引似乎不起作用！

Answer 1

也许你可以尝试这样的事情：

For Each cl In Rng
    cl.Offset(0, 1).Value = cl + rCell
Next