如何写入被定义为variables的单元格地址？

我在Sheets("sheet1").Range("G2")写入和写入数值Sheets("sheet1").Range("G2")在我的代码中数百次，并且希望用variablesreplace地址。

我的目标是减less代码中的混乱，并简化对程序的未来更改。

Sheets("sheet1").Range("G2") = 99变成myVar = 99等

这里有一个小小的显示我正在尝试做什么：

 Global myVar As Integer Public Sub mySub() 'write 1 to cell G2 for reference Sheets("Sheet1").Range("G2") = 1 myVar = Sheets("sheet1").Range("G2") 'returns value in cell MsgBox myVar 'try to write 99 to cell G2 myVar = 99 'check if 99 was written to cell g2; cell g2 displays value 1 MsgBox Sheets("Sheet1").Range("G2") End Sub 

我怎么能让myVar写一个99到单元格G2 ？

谢谢

Answer 1

更改为使用对象variables。 现在， myVar是一个整数types。

在顶部这样做：

 Global myVar As Range 

然后改变这一行：

 myVar = Sheets("sheet1").Range("G2") 

对此：

 Set myVar = Sheets("sheet1").Range("G2") 

Answer 2

我不是全球变数的忠实粉丝。 我尽量限制他们。 你也可以写一个函数：

 Public Function MyRef as Range Set MyRef = Sheets("sheet1").Range("G2") End Function 

如果你有多个callites，通过使用一个函数，你可以在函数中设置一个断点，而在Global中你不能。

只是我的偏好。