在Excel中的某个表，比如Sheet1，里面有多行多列，具体有多少行多少列呢，这个是可变的不确定，现在，问题的需求是：把Sheet1中不重复的值(不包括空的或数字)，放到另外一个表中。
VBA功能代码如下：
Dim Cel As Range, Res
'创建对象
Set d = CreateObject("Scripting.Dictionary")
'遍历Sheet1数据区域的单元格
For m = 2 To Sheet1.UsedRange.Rows.Count
For n = 1 To Sheet1.UsedRange.Columns.Count
'单元格不为空也不为数字
If Not WorksheetFunction.IsNumber(Sheet1.Cells(m, n).Value) And Trim(Sheet1.Cells(m, n).Value) <> "" Then
'如果字典对象中不包含同样的对象就添加该对象
If Not d.exists(Sheet1.Cells(m, n).Value) Then
d.Add Sheet1.Cells(m, n).Value, Sheet1.Cells(m, n).Value
End If
End If
Next n
Next m
Res = d.Items
'将对象中的元素写入Sheet2工作表中，从第二行开始写，写在A列
For i = 0 To d.Count - 1
Sheet2.Cells(i + 2, 1).Value = Res(i)
Next i
上述代码的功能是，将Sheet1中(从第2行开始)不重复的挑选出来后放到Sheet2的A列(从第2行开始填充)。