VBA实现删除A:E空行并合并F:J至下方，修复空列单元格问题

本人正在学习VBA，现有Excel工作表的两个单元格区域A:E和F:J，需合并为单个区域。需求为：先删除A:E区域内的空行并上移剩余行，再将F:J区域复制粘贴到A:E处理后的区域下方。但当前代码运行后存在空列及单元格异常问题，附上代码及处理前后效果截图，求解决方法。

处理前效果：

处理后效果：

原代码如下：

Dim ws As Worksheet
    Dim firstRng As Range
    Dim secondRng As Range
    Dim i As Long
    
    'Setting worksheets and Ranges
    Set ws = ThisWorkbook.Worksheets("Sheet1 (5)")

    ' Define Range 1
    With ws
        Set firstRng = Range(.Cells(1, 1), .Cells(.Rows.Count, 6).End(xlUp))
    End With
    
    ' Removing empty rows from firstRng and shifting up
    For i = firstRng.Rows.Count To 1 Step -1
      If Application.WorksheetFunction.CountA(firstRng.Rows(i)) = 0 Then
        firstRng.Rows(i).Delete Shift:=xlUp
      End If
    Next i
    
    ' Define Range 2
    With ws
        Set secondRng = Range(.Cells(1, 6), .Cells(.Rows.Count, 10).End(xlUp))
    End With
    
    ' Paste second range below first
    secondRng.Copy ws.Cells(firstRng.Rows.Count + 1, 1)
    secondRng.ClearContents
'

End Sub

问题原因 #

1. 区域定义错误：原代码把firstRng定义到了第6列（F列），但需求仅处理A:E区域，导致空行判断、行数计算都包含了无关列，逻辑混乱。
2. 未更新处理后的区域范围：删除空行后没有重新获取A:E的最后一行，直接用旧的firstRng行数计算粘贴位置，导致偏移。
3. 空行判断范围错误：判断空行时包含了F列，会保留A:E为空但F列有内容的行，不符合需求。

修正后的代码 #

Sub MergeRanges()
    Dim ws As Worksheet
    Dim firstRng As Range
    Dim secondRng As Range
    Dim lastRowFirst As Long
    Dim i As Long
    
    ' 目标工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1 (5)")

    ' 定义A:E区域的初始范围
    lastRowFirst = ws.Cells(ws.Rows.Count, "E").End(xlUp).Row
    Set firstRng = ws.Range("A1:E" & lastRowFirst)
    
    ' 仅删除A:E列全空的行
    For i = firstRng.Rows.Count To 1 Step -1
        If Application.WorksheetFunction.CountA(ws.Range("A" & i & ":E" & i)) = 0 Then
            ws.Rows(i).Delete Shift:=xlUp
        End If
    Next i
    
    ' 重新获取处理后A:E的最后一行
    lastRowFirst = ws.Cells(ws.Rows.Count, "E").End(xlUp).Row
    
    ' 定义F:J区域
    Set secondRng = ws.Range("F1:J" & ws.Cells(ws.Rows.Count, "J").End(xlUp).Row)
    
    ' 复制F:J到A:E下方
    secondRng.Copy Destination:=ws.Cells(lastRowFirst + 1, "A")
    
    ' 清空原F:J区域
    secondRng.ClearContents
End Sub

关键修正点 #

• 精准锁定A:E、F:J的区域范围，避免无关列干扰。
• 删除空行后重新计算A:E的最后一行，确保粘贴位置准确。
• 仅针对A:E列判断空行，符合需求逻辑。

内容的提问来源于stack exchange，提问作者Newt