写入一个可变大小的范围

我试图build立一个涉及用户input一些variables的macros。 因此，我需要能够select（和自动填充）不同大小的范围。 以下是我想要用来自动填充此variables范围的代码。 正如你所看到的，我想要自动填充范围A2：Axxx，其中xxx = 1 + patientprofiles。 下面的代码工作如果patientprofiles = 50，但我不想每次都编辑macros; 我希望范围根据用户input进行自我调整。

Dim patientprofiles As Integer Worksheets("Inputs").Select patientprofiles = Cells(2, "B").Value Worksheets("Work").Activate Cells(2, 1) = 101 Cells(3, 1) = 102 Set SourceRange = Worksheets("Work").Range("A2:A3") Set fillRange = Worksheets("Work").Range("A2:A51") SourceRange.AutoFill Destination:=fillRange 

Answer 1

Range（）对象标准的一种方法是一个string，表示由:分隔的开始和结束单元格: 。

我们可以使用&连接string。 我们从string的设置项开始，那些不会改变的项： "A2:A"然后添加variables： patientprofiles +1 。

最后的string是"A2:A" & patientprofiles +1

所以：

 Set fillRange = Worksheets("Work").Range("A2:A51") 

将会：

 Set fillRange = Worksheets("Work").Range("A2:A" & patientprofiles +1)