VBA实现删除数据集间空行或合并数据集的方法求助

以下是完全匹配需求的VBA代码，附带分步说明和对您现有代码问题的分析：

可行代码实现 #

Sub MergeDataGroups()
    Dim ws As Worksheet
    Dim firstGroupLastRow As Long
    Dim secondGroupLastRow As Long
    Dim secondGroupRange As Range
    
    ' 指定目标工作表（替换为你的表名）
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 1. 查找第一组数据的最后使用行
    ' 第二组起始行固定为15，从A14向上找最后非空行即可定位第一组结尾
    firstGroupLastRow = ws.Range("A14").End(xlUp).Row
    
    ' 2a. 删除两组之间的空行
    ' 仅当第一组结尾行小于14时，才存在中间空行需要删除
    If firstGroupLastRow < 14 Then
        ws.Rows(firstGroupLastRow + 1 & ":" & 14).Delete
    End If
    
    ' 2b. 复制第二组数据并插入到第一组下方
    ' 确定第二组的结束行（以B列最后非空行为准，确保包含完整数据）
    secondGroupLastRow = ws.Range("B" & ws.Rows.Count).End(xlUp).Row
    Set secondGroupRange = ws.Range("A15:B" & secondGroupLastRow)
    
    ' 复制后插入到第一组最后一行的下方
    secondGroupRange.Copy
    ws.Range("A" & firstGroupLastRow + 1).Insert Shift:=xlDown
    Application.CutCopyMode = False ' 清除剪贴板状态
End Sub

代码关键步骤说明 #

• 定位第一组结尾：利用第二组固定起始行15的特性，从A14向上查找最后非空行，避免因第一组长度变化导致的定位错误。
• 精准删除空行：仅删除第一组结尾到第14行之间的空行，不会误操作其他区域。
• 完整获取第二组数据：以B列最后非空行为准确定第二组范围，确保不会遗漏数据。

您现有代码的问题分析 #

1. test_01代码问题

   • 第二组范围定义逻辑错误：Range("A20", Range("A15").End(xlUp).Offset(0))的反向选取方式，在第二组中间有空行时会丢失数据。
   • 插入位置错误：代码将数据插入到C列，不符合“插入到第一组下方A/B列”的需求。

2. test代码问题

   • Offset(0)未跳过表头行，导致第一行（可能是数据表头）被误删，应改为Offset(1)。
   • 全局删除A列为空的行，会误删工作表中其他区域的有用空行，不符合仅清理两组间空行的需求。

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