公式中的dynamic列参考

我想在最后一列的左边放置一个公式3单元格。 有没有办法做到这一点？ 也许通过一个列地址？

lc = .Cells(3, Columns.count).End(xlToLeft).Column .Cells(3, lc + 3).Formula = "=CountCcolor(E3:N" & lrPT & ", " & .Cells(0, lc + 2) & "3)" 

问候，

Answer 1

lc + 3是三列右边，而不是左边，但几乎肯定是一个错字。 这应该把你的配方build设放在一边。

 lc = .Cells(3, Columns.count).End(xlToLeft).Column .Cells(3, lc + 3).Formula = "=CountCcolor(E3:N" & lrPT & ", " & .Cells(3, lc + 2).ADDRESS & ")" 

VBA的Range.Address属性可以以相对和绝对寻址的各种组合方式输出单元格引用。 我已经把这个作为默认（例如绝对），但我不相信这实际上是在你的公式（单个单元格中的单一公式）。

顺便说一句，如果N列中有值，则lc + 2将引用P3，而不是O3。