Как преобразовать файл XLS с объединенными столбцами в CSV?

Question

Я пытаюсь преобразовать некоторые файлы .xls в .csv, и один из файлов содержит несколько объединенных столбцов. Когда я делаю преобразование, возвращается только одно значение. Это изображение объяснит ситуацию:

Answer 1

Сначала вы должны удалить ячейки в вашем файле .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

Поместите указатель мыши где-то посередине этого кода и нажмите F5 , чтобы запустить код.