是否可以在右侧引用表达式的左侧？即在=

Question

之后

我仍然对编码还很陌生，而且我从未接受过任何正式的培训，因此这似乎是一个愚蠢的问题，或者我可能使用了错误的术语，所以请放心...！但是我只是想知道：

如果执行某个操作时，有一个快捷方式可以引用左侧的右侧，而无需再次输入全名？

例如而不是写像

sheet1.range("Unnecessarily Long Range Name").value = sheet1.range("Unnecessarily Long Range Name").value + 1

是否有内置的东西

sheet1.range("Unnecessarily Long Range Name").value = LHS + 1

或者我是否可以创建某种自定义函数来达到这种效果？

我知道我可以使用

dim x as range
set x = sheet1.range("Unnecessarily Long Range Name")
x.value = x.value + 1

但是每次都是三行，而我宁愿合而为一，我喜欢快捷方式...！ ：）

Answer 1

With … End With语法应该这样做：

With sheet1.range("Unnecessarily Long Range Name")
    .value = .Value + 1
End With

Answer 2

为了缩短第二种方法，您始终可以在同一行中用“：”来定义和设置变量的值。

dim x as range: set x = sheet1.range("Unnecessarily Long Range Name")