将数组中保存的数据写入单元格，与给变量赋值的语句一样，是一个用等号“=”连接的式子

Sub ArrToRngl()
Dim arr As Variant
arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
Range("A1:A10").Value = Application.WorksheetFunction.Transpose(arr)
'将数组arr中保存的数据写入活动工作表的A1:A10中'
'将一维数组写入单元格区域时，单元格区域必须在同一行。
如果要写入垂直的一列单元格数据，需先用工作表中的Transpose函数
将数组中保存的数据转置为一列'
End Sub

Array(,,,)
Array函数的参数是一个用英文逗号(,)隔开的数据列表，参数中有几个数据，得到的数组就有几个元素，如果不设置参数，函数返回的是一个不包含数据的空数组

---

无论是一维数组还是二维数组，在将数组批量写入单元格区域时，单元格的行列数必须与数组的行列数一致

Sub Arrto2()
Dim arr(1 To 2, 1 To 3) As String
arr(1, 1) = "A"
arr(1, 2) = "B"
arr(1, 3) = "C"
arr(2, 1) = 1
arr(2, 2) = 2
arr(2, 3) = 3
Range("A1:B2").Value = arr
'此时单元格行列数与数组行列数不一致，显示不完全'
End Sub

此时单元格行列数与数组行列数不一致，显示不完全

3.5.10错误.png

应改为

Range("A1:C2").Value = arr

如图所示

3.5.10正确.png

---

常量

Const 常量名称 As 数据类型 = 存储在常量中的数据

常量的作用域
本地常量
模块级常量
公共常量

对象、集合及对象的属性和方法