首页 > 解决方案 > 如何将具有合并列的 xls 文件转换为 csv?

问题描述

我正在尝试将一些 .xls 文件转换为 .csv,其中一个文件有一些合并的列。当我进行转换时,只返回一个值。这张图片将解释这种情况: 图片有问题

标签: excelcsvmergetransformxls

解决方案


首先,您应该取消合并 .xls 文件中的单元格。给定的代码将正确地取消合并单元格。

合并前 ==>> 未合并后

  1. 打开你的工作表。
  2. Alt+F11
  3. 插入 => 模块
  4. 粘贴此代码:
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
  1. 将鼠标指针放在这段代码中间的某个位置,然后点击F5运行代码。

推荐阅读