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