Question

关于动态定义数组大小并赋值问题

我excel有一列100行的数据，想把这些数据填充到一个数组里（不重复数据）
请问怎么写
VBA 没有人会啊，急啊

Answer 1

Dim Dic, Arr
Dim i As Integer, r As Integer
Dim Str As String
r = Sheet1.Range("A65536").End(xlUp).Row
If r = 1 Then Exit Sub '如果第一列没有数据那么退出程序
Set Dic = CreateObject("scripting.dictionary") '创建字典对象
For i = 1 To r '将第一列数据添加到字典的key值中
Dic(CStr(Cells(i, 1))) = ""
Next
Arr = Dic.keys '返回字典key的数组
Set Dic = Nothing '销毁对象
Str = Join(Arr, ",") '将数组中的内容显示为一字符串
MsgBox Str
End Sub

追问

我是要动态赋值，并且是要不同的数值
1，我数组大小不确定，我添加一个数值数组大小就加1
2，数组里的值不重复

Answer 2

记得VB里面有一个ReDim可以重新定义数组大小，也就是动态数组。具体的你自己找一下资料吧，我很多年没用VB了，只记得这么多了，希望能帮上你，呵呵
如果用VC实现的话，建议用链表取代数组