<em>EXCEL</em>用<em>VBA</em>将单元格数值存入数

Sub test()
Dim 数组() As Integer '定义动态数组zhidao
Dim n As Long
Dim i As Integer
n = Application.WorksheetFunction.CountA(Range("A:A")) '确定专A列数据属数量
ReDim 数组(1 To n) As Integer '根据A列数据重新定义数组
For i = 1 To n
数组(i) = Cells(i, 1) '给数组赋值
Next
End Sub

1、首先打开一个Excel的文件，在表格中输入简单的表格，比如学生身高表格，如下图所示。

2、接着，在表格中输入一维数组的说明文字，鼠标左键单击【开发工具】菜单标签，在VBA控件下拉菜单中，并zhidao选择按钮控版件，如下图所示。

3、 然后，在表格中绘制出按钮控件，并修改控件名称，比如使用一维数组的名称，如下图所示。

4、接着，选择按钮控件，并鼠标左键单击【查看代码】按钮，如下图所示。

5、然后，在代码窗口权中输入VBA语句，比如输入定义一维数组的语句，并给一维数组赋值，如下图所示。

6、接着，在代码窗口中，输入一维数组给单元格赋值的VBA语句，如下图所示。

7、最后，在设计窗口上，鼠标左键单击按钮，可以看到表格中的，通过VBA程序的一维数组，并输出到身高的单元格中，显示出数据了，如下图所示。

独立的不可以用数组来整体操作，只有一个一个的写了，只有一个规则的方块区域才可以使用数组整体操作。

sheets("表名").cells(行号,列号)可获得单元格的值，其中行列号都是数字
Function bbb(b)
Dim a()
b = b & ","
i = 1
j = -1
ks = 1
js = 1
ifg = False
Do While Len(b) >= i
If Mid(b, i, 1) = "," Then
j = j + 1
ReDim Preserve a(j)
ks = js
js = i + 1
If Not ifg Then
a(j) = Mid(b, ks, js - ks - 1)
Else
m = Mid(b, ks, js - ks)
j = j + js - ks + 1
ReDim Preserve a(j)
For m = j + ks - js - 1 To j - 1
a(m) = a(m - 1) + 1
Next
End If
ElseIf Mid(b, i, 1) = "-" Then
j = j + 1
ReDim Preserve a(j)
ks = js
js = i + 1
a(j) = Mid(b, ks, js - ks - 1)
ifg = True
End If
i = i + 1
Loop
Sheet3.Cells(1, 1) = ""
For i = 0 To UBound(a)
c = c & " " & a(i)
bbb = c
Next
End Function
应该会用吧？是在代码里调用的
例如
Sheet3.Cells(1, 1) = bbb(Sheet3.Cells(1, 2))
原始数据e799bee5baa6e79fa5e98193e58685e5aeb9336时在Sheet3.Cells(1, 2)里，数据要输出在Sheet3.Cells(1, 1) 里