如何在Delphi 7中指定多列实现Excel指定区域去重？

我正在使用Delphi 7编写读取Excel数据的程序，该Excel文件包含两列数据，现需通过Delphi对Excel指定区域执行去重操作。

参考VBA宏代码 #

ActiveSheet.Range("$A$1:$B$42").RemoveDuplicates Columns:=Array(1, 2), Header _
        :=xlYes

Excel_TLB中RemoveDuplicates方法定义 #

procedure RemoveDuplicates(Columns: OleVariant; Header: XlYesNoGuess); 

根据VBA帮助文档说明：

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

我编写的错误代码 #

procedure TForm1.PuskBClick(Sender: TObject);
var
  FExcel, FSheet, FBook: Variant;
  MyColumns: OleVariant;
begin

// 打开文件
 if OpenDialog.Execute then
  begin
// 创建Excel实例
   FExcel := CreateOleObject('Excel.Application');
   FExcel.Visible := true;

   if not VarIsEmpty(FExcel) then // 若实例创建成功
    begin
// 打开指定Excel文件并定义工作簿
     FBook:=FExcel.Workbooks.Open(OpenDialog.FileName); 
// 关闭提示弹窗
     FExcel.DisplayAlerts := false; 
// 定义工作表
     FSheet := FBook.WorkSheets[1]; 
// 创建用于定义列号的数组
     MyColumns:= VarArrayCreate([1,1,1,2], varVariant);
     MyColumns[1,1]:=1; // 第1列
     MyColumns[1,2]:=2; // 第2列
// 调用去重方法
     FSheet.Range['A1','B42'].RemoveDuplicates(MyColumns[1,1], xlYes);
    end;
  end;
end;

当前代码仅能对单列执行去重（修改索引后仅对第二列生效），请问如何正确指定包含两列的数组以实现同时按两列去重？

解决方案 #

你的代码存在两个关键问题：

1. 创建了二维数组，但Excel的RemoveDuplicates方法需要的是一维数组（对应VBA中的Array(1,2)）
2. 调用方法时仅传入了数组的单个元素，而非整个数组

修正后的完整代码 #

procedure TForm1.PuskBClick(Sender: TObject);
var
  FExcel, FSheet, FBook: Variant;
  MyColumns: OleVariant;
begin
  if OpenDialog.Execute then
  begin
    FExcel := CreateOleObject('Excel.Application');
    FExcel.Visible := true;

    if not VarIsEmpty(FExcel) then
    begin
      FBook := FExcel.Workbooks.Open(OpenDialog.FileName);
      FExcel.DisplayAlerts := false;
      FSheet := FBook.WorkSheets[1];
      
      // 创建一维数组，存储列索引
      MyColumns := VarArrayCreate([1, 2], varInteger); // 或varVariant
      MyColumns[1] := 1; // 第1列
      MyColumns[2] := 2; // 第2列
      
      // 传入整个数组执行多列去重
      FSheet.Range['A1','B42'].RemoveDuplicates(MyColumns, xlYes);
    end;
  end;
end;

关键说明 #

• 使用VarArrayCreate([1,2], varInteger)创建一维数组，索引范围对应列的序号（1代表第一列，2代表第二列）
• 调用RemoveDuplicates时直接传入整个数组变量MyColumns，而非单个元素
• 数组类型可以用varInteger或varVariant，Excel都能正确识别

内容的提问来源于stack exchange，提问作者Tigor