Question

怎么让VB中变化的数据存到数组中,再一块写入到excel表格中？

Answer 1

你要定义一个数组，然后将变化的数据分别存入数组中的元素中，然后在给单元格赋值就可以了。下面是个例子希望能帮到你。
Sub dada()
Dim arr(1 To 12) As Integer
Dim i As Integer
For i = 1 To 12
arr(i) = Int(100 * Rnd) + 1 '对arr(1) 到arr(12)存入1到100的随机整数
Next
For i = 1 To 12
Cells(i, 1) = arr(i) '单元格第一列的第1到12行分别赋值为arr(1) 到arr(100)
Next
End Sub