将记录拆分的Excel行合并

Question

我正在导出报告，并且在导入Excel时记录拆分为多行。每个报告在导入后有超过3万行。从分割中保留的唯一列是列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