WPS宏获取表格选中区域实现多列重复值删除

第一版是单列删除，ActiveCell返回一个 Range 对象，该对象代表活动窗口的活动单元格，注意区分活动单元格和选定区域。活动单元格是当前选定区域内的单个单元格。选定区域可能包含多个单元格，但只有一个是活动单元格。

function Macro1()

{

//1、获取选中单元格列号

var b = ActiveCell.Cells.Column;

var a = ActiveCell.Cells.Row;

//console.log("选中区域首行："+a);

//console.log("选中区域首列："+b);

//2、选中所选单元格所属列

/*知识点：

Cells.Item(a,b),Item是Cells的属性,返回集合中的单个单元格对象

//Sheets("Sheet1").Cells.Item(a,b).EntireColumn.Select();

Sheets("Sheet1").Range(Cells(a,b),Cells(a,b)).EntireColumn.Select();

//3、执行删除重复值

/*知识点：

RemoveDuplicates (Columns 、 Header) ，从值区域中删除重复的值，表示 Range 对象的变量

Variant 包含重复信息的列的索引数组

XlYesNoGuess 指定第一行是否包含标题信息。 xlNo 是默认值；

//Sheets("Sheet1").Cells.Item(a,b).EntireColumn.RemoveDuplicates(1, xlYes);

Sheets("Sheet1").Range(Cells(a,b),Cells(a,b)).EntireColumn.RemoveDuplicates(1, xlYes);

}

第二版是既能单列删除也能多列删除，Selection对象代表窗口或窗格中的当前所选内容，‌每个文档窗格只能有一个Selection对象，‌并且在整个应用程序中只能有一个活动的Selection对象‌。这个Selection查了N多资料，真费劲。

function Macro1()

{

//1、获取当前选中区域

var e =Selection.Cells.Address();

var a = Range(e).Columns.Count;

//console.log("所选区域的列数："+a);

//console.log("所选区域的地址："+e);

//2、选中所选单元格所属列

Range(e).EntireColumn.Select();

//3、创建数组，将列数通过遍历添加到数组中

var arr = new Array();

for(var i = 1 ; i <= a ; i++){

arr[i-1]=i;

}

//4、执行删除重复值

Range(e).EntireColumn.RemoveDuplicates(arr, xlYes);

}