ExcelVBA将某列数值存⼊⼀个数组
1Sub test()
数组全部赋值为12Dim arr() As String                                  '定义动态数组
3Dim n As Long
4Dim i As Integer
5n = Application.WorksheetFunction.CountA(Range("A:A")) '确定A列⾮空数据数量
6ReDim arr(1 To n) As String                          '根据A列数据重新定义数组
7For i = 1 To n Step 1
8    arr(i) = Cells(i, 1)                              '给数组赋值
9Next i
10End Sub
11
12本例中需要改进的是
13  1. 排除空值
14  2. 去重

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。