最佳答案
首先,您应该取消合并 .xls 文件中的单元格。给定的代码将正确地取消合并单元格。
==>>
Sub activesheet_unmerge()
Dim c As Range
Dim c2 As Range
Dim rMergeArea As Range
Dim vMergeValue As Variant
For Each c In ActiveSheet.UsedRange
If c.MergeCells Then
Set rMergeArea = c.MergeArea
vMergeValue = c.Value
rMergeArea.unmerge
For Each c2 In rMergeArea
c2.Value = vMergeValue
Next
End If
Next
End Sub
关于excel - 如何将具有合并列的 xls 文件转换为 csv?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/60430111/