レコードが分割されたExcelの行をマージする

Question

Excelにインポートするときにレポートをエクスポートしていて、レコードが複数の行に分割されています。インポート後、各レポートには30K行以上の行があります。分割から除外された唯一の列は列Aであり、他の列は2〜4行に分割することができます。 これらの行を自動的にマージして、画像の下部が接続されているように見えますか？

Answer 1

あなたはこのコードを使用することもできます。

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