vba - 循环遍历一系列单元格

Question

我需要在 c27 的每个单元格和右侧的每个连续非空单元格上运行 AddColumnofData 函数，但我得到一个“需要运行时错误 424 对象”，任何帮助将不胜感激。

Set col = Range("$C$27", Range("$C$27").End(xlToRight))

For Each c In col
    AddColumnofData (c)
Next c

Answer 1

假设您已定义 AddColumnofData作为

Sub AddColumnofData(c As Range)
    ...
End Sub

你的电话需要是

AddColumnofData c

(即去掉括号)

杰西对 DIM 的建议你的变量，虽然不是强制性的，但这是个好建议。适用于 col也是。要使其强制添加 Option Explicit到模块的顶部。