Delphi如何获取Excel中Range合并区域的值及相关操作

        最近在做一个导入Excel的功能时，原本是要逐行读取数据的，多数都是独立的，我们获取单元格的值就很容易，这里就不重复了。但有时候上下几格的值相同时，同事就把他们合并了，虽然这是合理的，但程序读取时就麻烦了，我们人眼判断就很容易，一看到区域就找左上角的单元格的值，但程序怎样判断左上角的单元格在哪里？

        我们知道Excel几个Cell单元合并成Range后，值保存在左上方，也就是这个区域(1,1)单元格里，访问Range中其他Cell得到的都是空。那么问题来了，当我们程序打开Excel后，在访问某个Cell时，如何知道他是独立的还是被合并的？如何是合并的，怎么获取他的值？

        通过一番研究，这个问题最后解决了，先说一下原理。

        将某个单元格定义为一个Range，Range.MergeCells和Range.MergeArea这2个属性说明一下，判断Range.MergeCells是True还是False得出这个单元格是不是合并的，True就是合并的。Range.MergeArea这个单元格所在合并区域，访问他的Cells[1,1]就是我们说的左上角的单元格了。

 

        下面上代码，由于下面的代码是从源代码中截取并做了修改，可能会有语法错误，但主要语句是正确，请大家见谅。

        引用ComObj

var
  ExcelApp,vRange:Variant;
  vRow:integer;
begin
  try
    ExcelApp := CreateOleObject ('Excel.Application'); //创建Excel对象
    ExcelApp.Visible := False ;
    ExcelApp.DisplayAlerts:=false;
    ExcelApp.WorkBooks.Open(RzButtonEdit2.Text); //打开某个Excel文件
    ExcelApp.WorkSheets[1].Activate; //激活第1个工作表
    vRow:=5; //从第5行开始
    while (vRow<=ExcelApp.ActiveSheet.UsedRange.Rows.Count) do
    begin
vRange:=ExcelApp.ActiveSheet.Range[ExcelApp.ActiveSheet.Cells[vRow,7],ExcelApp.ActiveSheet.Cells[vRow,7]];
      //重点，创建Range对象，范围是自己单元格本身，在Excel中相当于选中这个单元格
      if vRange.MergeCells then //判断这个单元格是不是合并的
      begin
        ShowMessage(vRange.MergeArea.Cells[1,1].Value);
        //单元格所在MergeArea的Cells[1,1]就是左上方第1格
      end else
      if not vRange.MergeCells then //不是合并单元格的直接访问Cell
      begin
        ShowMessage(ExcelApp.ActiveSheet.Cells[vRow,7].Value);
      end;
      Inc(vRow);
    end;
  Except
  end;
end;