如何将合并列的xls文件转换为csv?

马赫迪·穆阿塔

我正在尝试将某些.xls文件转换为.csv,并且其中一个文件具有一些合并的列。当我进行转换时,仅返回一个值。此图像将说明情况:影像问题

ZygD

首先,您应该取消合并.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以运行该代码。

本文收集自互联网,转载请注明来源。

如有侵权,请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章