VBA 一维数组如何增加一个数据或者更多数据

用For 循环就可以，例如，第一行有数据，用下程序就可以把A~F列的数据放到数据中。

Sub tt()

Dim Arry(50)

For i = 0 To 5

Arry(i) = Cells(1, i + 1)

Next

End Sub

Dim

a

......

ReDim

Preserve

a(i)

......

先定义一个数组，如果比较后发现这个数为数组内没有，就让i=i+1后，重新定义一下数组，使其元素自动+1，再把值添加进去。

不明白的地方可以Q我，40194204

Set sht = Workbooks("C.xlsx").Sheets("S1")

  ThisWorkbook.Sheets(2).Range(Cells(1, 1).Address &":" &Cells(3, 3).Address).Copy sht.Range("B" &"3")

原代码报错原因，代码执行的工作簿就是活动工作簿，而目标又是活动工作簿中的"S1"表，但该表在文件C中，不在活动工作簿中，所以找不到。

---