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

我试一下

还是无法解决取消合并后数据还原问题，那么狐表导入excel时，如果没有注意到导入数据含有合并的单元格，以后数据处理就麻烦了，就误导我们了，这需要改进

汗，什么不能啊。取得列名以后，赋值给第一行各列啊

生成多层表头，这个可以了，非常感谢版主支持。我说是取消合并后数据还原问题，还有不能解决的问题，这个只能解决行合并还原数据的问题，对于列合并还原问题就不能解决了，特别是行、列都有合并单元格的现象，比较复杂，当然根据自己工作所需手工调节也可以，但效率和灵活性就不够了，还是希望能在这方面再研究一下

用代码处理一下就行

 

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

可以了，感谢版主支持