乔纳森（Jonathan）正在创建一个宏，需要用值填充一系列单元格。例如，如果他需要填充范围A1：C1，则当前需要三个语句来填充该范围：

Range("A1") = "Test1"

Range("B1") = "Test2"

Range("C1") = "Test3"

他想知道是否有一种方法可以将它们填充到单个语句中，类似于以下内容：

Range("A1:C1") = ("Test1","Test2","Test3")

乔纳森（Jonathan）期望的语法很接近，但无法使用。运作方式如下：

Range("A1:C1") = Array("Test1","Test2","Test3")

请注意Array语句的使用，该语句告诉VBA，后面的内容应被视为要在运算符左侧的单元格序列中使用的值序列。有趣的是，您可以将值填充到变量中，也可以使用Array语句，如下所示：

sOne = "Apples"

sTwo = "Oranges"

sThree = "Artichokes"

Range("A1:C1") = Array(sOne, sTwo, sThree)

如果愿意，也可以使用直接变量：

Dim sMyStrings(2) As String sMyStrings(0) = "Apples"

sMyStrings(1) = "Oranges"

sMyStrings(2) = "Artichokes"

Range("A1:C1") = sMyStrings

上面的代码也可以如下重写：

Dim sMyStrings(2) As String sMyStrings = Array("Apples", "Oranges", "Artichokes")

Range("A1:C1") = sMyStrings

最后，如果您希望将值放置在单列而不是行中，则需要以这种方式使用Transpose函数：

Range("A1:A3") = Application.Transpose(Array("Test1","Test2","Test3"))

注意：

如果您想知道如何使用此页面（或_ExcelTips_网站上的任何其他页面）中描述的宏，我准备了一个特殊页面，其中包含有用的信息。

点击此处在新的浏览器标签中打开该特殊页面。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧（11701）适用于Microsoft Excel 97、2000、2002和2003。您可以在以下位置找到适用于Excel功能区界面（Excel 2007和更高版本）的本技巧的版本：

链接：/ excelribbon-Filling_a_Range_of_Cells_with_Values [使用值填充单元格范围]。