VBA中如何将一维数组全部值粘贴到电子表格单列单元格

代码仅写入数组第一个值，核心原因是VBA中的一维数组默认按**横向（行方向）**排布，选中的A列区域是纵向（列方向）连续单元格，行列方向不匹配时，Excel只会将数组第一个元素填充到整个选中区域，无法映射全量数组元素。
另外代码中使用Select/Selection操作对象，没有显式指定目标工作表，容易因当前激活窗口错位导致写入异常，提前用FSO创建空CSV的步骤也属于冗余操作。

方法1：转置数组直接批量写入（推荐，写入效率最高） #

用工作表自带的Transpose函数将一维数组转为纵向列数组，直接匹配A列的纵向区域赋值即可，不需要逐单元格循环。
修正后可直接运行的代码如下：

Dim targetWb As Workbook
Dim targetWs As Worksheet

' 直接打开目标路径CSV，文件不存在时会自动创建，无需提前用FSO新建空文件
Set targetWb = Workbooks.Open("C:\users\lloyd\Coding\vbafolder\missingclose.csv")
Set targetWs = targetWb.Sheets(1)

' 将一维数组转置为纵向后，批量写入A列从A1开始的对应区域
' 请确认arraycount和数组实际元素总数一致：0基数组元素总数=UBound(noCloseArray)+1，1基数组元素总数=UBound(noCloseArray)
targetWs.Range("A1:A" & arraycount).Value = WorksheetFunction.Transpose(noCloseArray)

' 操作完成后保存关闭文件
targetWb.Save
targetWb.Close

注意：如果数组元素总数超过65536个，Transpose方法会触发运行错误，这种场景请使用方法2。

方法2：转换为二维数组批量写入（兼容大数组场景） #

如果数组元素量较大，可以先将一维数组转为同尺寸的纵向二维数组再批量写入，不受Transpose的长度限制：

Dim targetWb As Workbook, targetWs As Worksheet
Dim resArr() As Variant, i As Long
Set targetWb = Workbooks.Open("C:\users\lloyd\Coding\vbafolder\missingclose.csv")
Set targetWs = targetWb.Sheets(1)

' 定义和数组等长的纵向二维数组（行数=数组长度，列数=1）
ReDim resArr(1 To arraycount, 1 To 1)
For i = 1 To arraycount
    ' 如果noCloseArray是0下标起始，此处取值改为noCloseArray(i-1)
    resArr(i, 1) = noCloseArray(i)
Next
' 批量写入区域
targetWs.Range("A1").Resize(arraycount, 1).Value = resArr

targetWb.Save
targetWb.Close

如果需要把一维数组写入横向的一行单元格，不需要做转置，直接用以下代码即可，和一维数组默认的行方向排布规则匹配：

' 从A1单元格开始，横向写入整行
targetWs.Range("A1").Resize(1, arraycount).Value = noCloseArray

内容的提问来源于stack exchange，提问作者lmac