用Array函数创建数组并写入单元格

本文为：《别怕，Excel VBA其实很简单（第3版）》随书问题参考答案

Sub 创建数组()
Dim arr As Variant
arr = Array("张小花", #6/1/2019#, 2100)
Range("A1:C1").Value = arr
End Sub

注意，在VBA中，文本字符串应写在英文半角双引号之间，如：”张小花”，日期应写在#号之间，如：#6/1/2019#