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