数组赋给sheet 时候为什么不是从第一列开始

headche119

Sub chaifenpackwipdw()
Dim i, j, k, m, a, b, n%, brr, crr, drr, d As Object

Dim sh2, sh1, sh3, sh4 As Worksheet

Dim wb1, wb2 As Workbook

Set sh1 = Worksheets("Sheet1")


Dim arr(1 To 3, 4)
    arr(1, 2) = "aa"

   arr(1, 1) = "a"
   arr(2, 1) = "dd"
sh1.Cells(1, 1).Resize(2, 3) = arr
End Sub

这个a  为什么不是在第一个单元格 各位大佬

liulang0808

Dim arr(1 To 3, 1 to 4)

全党

Dim arr(1 To 3, 4),你的数组定义二维时是从0开始的，所以arr（1,1）就在第一行第二列的位置上了。另外，你cells（1,1）扩展的区域也不够。应该是resize（3,5）

cyq4896

是这样的..

headche119

cyq4896 发表于 2023-6-1 16:52
是这样的..

非常感谢大佬