Excel VBA需求：按指定关键词截取单元格内容并插入分隔行

核心需求拆解 #

• 从E列（Description列）的单元格文本中，以「Job」为分隔符提取公司名称（取分隔符前的内容）
• 遍历已按E列排序的记录（你已完成排序步骤，这是前提，确保同公司记录连续）
• 按规则插入分隔行：
  • 若某公司仅1条记录：在该记录下方插入1行
  • 若某公司有2条及以上记录：在该组最后一条记录下方插入2行

完整VBA代码 #

Sub SeparateCompanies()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim currentCompany As String
    Dim nextCompany As String
    Dim companyCount As Long
    
    ' 设置操作的工作表，可根据实际修改Sheet名称
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取E列最后一行的行号（用Long避免行过多溢出）
    lastRow = ws.Cells(ws.Rows.Count, "E").End(xlUp).Row
    
    ' 从最后一行往上遍历，避免插入行影响行号计数
    i = lastRow
    Do While i >= 3 ' 假设数据从第3行开始，和你之前的宏逻辑一致
        ' 提取当前行的公司名称：截到"Job"前的内容
        currentCompany = Trim(Split(ws.Cells(i, "E").Value, "Job")(0))
        
        ' 统计当前公司的连续记录数
        companyCount = 1
        ' 往上找同公司的记录，直到公司名变化或到第3行
        Do While i - 1 >= 3
            nextCompany = Trim(Split(ws.Cells(i - 1, "E").Value, "Job")(0))
            If nextCompany = currentCompany Then
                companyCount = companyCount + 1
                i = i - 1
            Else
                Exit Do
            End If
        Loop
        
        ' 根据记录数插入对应行数
        If companyCount = 1 Then
            ws.Rows(i + 1).Insert Shift:=xlDown ' 插入1行
        Else
            ws.Rows(i + 1 & ":" & i + 2).Insert Shift:=xlDown ' 插入2行
        End If
        
        ' 继续往上遍历
        i = i - 1
    Loop
End Sub

代码关键部分说明 #

1. 工作表与行号处理

   • 用ThisWorkbook.Worksheets("Sheet1")指定操作的工作表，替换成你实际的表名即可
   • 用Long类型存储lastRow，避免Excel行数超过Integer上限（65536）时出错
   • 从最后一行往上遍历：因为插入行会改变后续行的行号，从后往前操作不会打乱未处理的行

2. 公司名称提取

   • 用Split(单元格值, "Job")(0)拆分文本，取第一个元素就是「Job」前的公司名
   • 加Trim()去掉前后空格，避免因空格导致的对比错误

3. 同公司记录计数

   • 循环往上查找，直到遇到不同公司名或数据起始行，统计当前公司的总记录数
   • 这一步是核心，解决了你之前直接对比相邻行无法判断整组数量的问题

4. 插入分隔行

   • 单条记录：在当前行下方插入1行
   • 多条记录：一次性插入2行，比逐行插入更高效

之前代码的问题分析 #

• 你之前的SepComp宏用Like对比整个E列单元格值，而不是提取后的公司名，匹配逻辑错误
• 循环方向是从前往后，插入行后会导致后续行被重复处理或跳过
• 没有统计同公司的总记录数，无法区分是单条还是多条记录的情况

注意事项 #

• 必须确保已按E列完成排序，否则同公司记录不连续，计数会出错
• 数据起始行是第3行，如果你实际数据起始行不同，修改代码里的i >= 3和i - 1 >= 3即可
• 运行宏前建议先备份数据，避免操作失误导致数据丢失

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