vba中如何提取用户所选的若干个单元格内的数据？

JavaScript031

vba中如何提取用户所选的若干个单元格内的数据？,第1张

Dim A()

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 自身的删除重复项功能会更简单：

选择这块去除重复的区域；

主菜单中选择“数据”→“删除重复项”；

根据提示，默认“数据包含标题”选中，点击“确定”按钮即可。