第一版是单列删除,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);