A = Selection.Value
通过上述代码，二维数组A(）就是所选单元格区域内的数据，数组的两个维度上都以1为下边界的。
注：对于选择多重区域的情部，上述代码仅能取得第一个区域内的数据，如果选择的是多重区域，则要复杂一些，代码如下：
Dim a As Range, b()Set a = Selection
ReDim b(1 To a.Areas.Count)
For i = 1 To a.Areas.Count
b(i) = a.Areas(i).Value
Next i
'注：b(i)是一个数组的数组，引用如下：
'比如：要引用选择的多重区域的第2个区域的第3行第4列的数值：
'那么引用如下：b(2)(3,4)
仅变这道题而言，直接使用 Excel 自身的删除重复项功能会更简单：
选择这块去除重复的区域；
主菜单中选择“数据”→“删除重复项”；
根据提示，默认“数据包含标题”选中，点击“确定”按钮即可。
