主题：急！求助，excel取消合并后，如何保留原来数据？

没办法，只能在excel里处理

http://jingyan.baidu.com/article/b7001fe19422f50e7282dd0c.html

http://www.ittribalwo.com/article/1506.html

什么情况下的？要做什么功能？

做例子发上来

参考代码

Dim Book As New XLS.Book("d:\test.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
sheet.ClearMergedCells
Dim level As Integer = 2
Dim ary(level-1) As String
For i As Integer = 0 To sheet.Cols.count - 1
    For j As Integer = 0 To level-1
        If sheet(j,i).text > "" Then
            ary(j) = sheet(j,i).Text
        End If
    Next
    output.show(String.Join("_",ary))
Next

用代码处理一下就行

Dim App As New MSExcel.Application
try
    Dim Wb As MSExcel.WorkBook = app.WorkBooks.open("d:\test.xls")
    Dim rg As MSExcel.Range
    Dim Ws = wb.WorkSheets(1)
    For Each rg In ws.UsedRange
        If rg.MergeCells Then
            Dim temp = rg.value
            Dim tng = Rg.MergeArea
            tng.UnMerge
            For Each t As object In tng
                t.Value = temp
            Next
        End If
       
    Next
    app.visible = True
catch ex As exception
    msgbox(ex.message)
    app.quit
End try