在线急救：vb读取excel内容的有关问题

在线急救：：：vb读取excel内容的问题
我有个程序需要读取excel的数据，但是在读取合并的行或者列的时候，只能读取第一个位置的内容，其他位置的值都为空，应该怎么解决呢？我查了资料是只需要读取合并行的第一行，或者合并列的第一列，但是excel的数据很复杂，程序里不知道怎么判断哪个单元格是属于哪个合并的部分。请高手给出一个读取这样excel内容的程序吧。（事先不知道那些单元格是合并的，合并的有行合并的，有列合并的）

[解决办法]

VB code

Private Sub Command1_Click()   Dim xls As New Excel.Application   Dim book As New Excel.Workbook   Dim sheet As New Excel.Worksheet      Set book = xls.Workbooks.Open("c:\book1.xls")   Set sheet = book.Worksheets(1)   For i = 1 To 3       For j = 1 To 3            If sheet.Cells(i, j).MergeArea.MergeCells Then               Debug.Print sheet.Cells(i, j).MergeArea.Address            End If       Next   Next   End Sub
[解决办法]
VB code
Dim rng As Range  For Each rng In ActiveSheet.UsedRange      If rng.MergeCells Then   Next