Excel-Zeilen zusammenführen, in denen der Datensatz aufgeteilt wurde

Question

Ich exportiere einen Bericht, und der Datensatz wird beim Importieren in Excel in mehrere Zeilen aufgeteilt. Jeder Bericht enthält nach dem Import mehr als 30.000 Zeilen. Die einzige Spalte, die von der Teilung verschont bleibt, ist Spalte A, jede andere Spalte könnte in zwei bis vier Reihen aufgeteilt werden. Gibt es trotzdem eine automatische Zusammenführung dieser Zeilen, so dass es aussieht wie der untere Teil des Bildes?

Answer 1

Sie können diesen Code verwenden:

Option Explicit 

Sub main() 
    Dim area As Range 
    Dim strng As String 
    Dim iRow As Long, startRow As Long, endRow As Long, iCol As Long 

    With Worksheets("Export") '<--| change "Export" with your actual sheet name 
     With .Range("A2:A" & .UsedRange.Rows(.UsedRange.Rows.Count).row).SpecialCells(xlCellTypeBlanks) 
      For Each area In .Areas 
       strng = "" 
       startRow = area.End(xlUp).row 
       endRow = area.Rows(area.Rows.Count).row 
       iCol = area.End(xlToRight).Column 
       For iRow = startRow To endRow 
        strng = strng & .Parent.Cells(iRow, iCol) & " " 
       Next iRow 
       .Parent.Cells(startRow, iCol) = strng 
      Next area 
      .EntireRow.Delete 
     End With 
    End With 
End Sub