VBA 异常的单元格地址

VBA Unusual cell address

我正在尝试优化 Excel VBA 中的单元格地址。我写了一个地址:

ActiveCell.Offset(, -2).Value = ""

我也需要在其中放置一个 sheet 那是:

Worksheets("Machine Format")

我能想到的每个组合都返回了一个不正确的错误。

有人可以帮我写这段代码吗?

在正常情况下,即您的活动单元格是C7,通过执行您的代码,它将更新A7中的值

但是,不建议使用offset -2,因为当你的活动单元格是B7或A7时,它会return错误,因为它超出了边界

如何解决,如果你还是偏爱offset,就用if函数,比如

If ActiveCell.Column > 2 Then
    ActiveCell.Offset(0, -2).Value = 100
End

因此,它不会执行偏移量 -2,除非它在 ​​col C 或以上

Sheets("Machine Format").Range(ActiveCell.Offset(, -2).Address).Value = ""