根据范围变量分配单元格值

Question

我目前有一些代码可以复制多个范围内的值，并将这些值粘贴到其他范围内。 该项目的范围不断变化，因此每次添加行或列时，都需要在我的VBA代码中更改范围。 我试图通过创建全局范围变量来存储范围位置来简化此过程，并让我的复制/粘贴代码引用这些变量。

Public test As Range
Public def1 As Range

Public Sub initializeGlobalVars()

'Assign values to the global variables

Set def1 = Sheets("Defaults").Range("B10:D14")

Set test = Sheets("Defaults").Range("B32:D36")
test = def1

End Sub

我知道我在这里缺少某些行或处理方式不正确，但是我希望能够通过引用变量“ test”而不是单元格位置来更改变量“ test”中实际单元格的值，因为它一直在变化。 这可能吗？

感谢您的帮助！

Answer 1

由于Range接受字符串变量，因此您可以执行以下操作：

Dim strRangeToUse as String
strRangeToUse = "B10:D14"

Set test = Sheets("Defaults").Range(strRangeToUse)

然后，如果要为测试范围设置另一个范围（ strRangeToFill ），则可以执行以下操作：

Sheets("Defaults").Range(strRangeToFill).Value = test.Value

Answer 2

您可以使用TABLES或NAMED RANGES

1-表有一个名字，可以用来确定谁是动态的范围！ 这样，您可以使用ActiveSheet.ListObjects（“ table”）。range（）

2-您可以创建一个命名范围

这样你就可以使用

Range("RAGEDNUMBERONE")