如何在Excel H列[Data.SOURCE]以‘SB’开头单元格下插入15行？

方法一：VBA代码（推荐，适合大量数据） #

这种方法高效且不会出错，尤其适合数据量较大的情况：

1. 打开目标Excel文件，按下Alt + F11打开VBA编辑器
2. 右键点击左侧面板中的当前工作簿名称，选择「插入」→「模块」
3. 将以下代码粘贴到弹出的模块代码窗口中：

Sub Insert15RowsAfterSB()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 可将ActiveSheet改为具体工作表名，比如Set ws = ThisWorkbook.Sheets("Sheet1")
    Set ws = ActiveSheet
    
    ' 获取H列最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, "H").End(xlUp).Row
    
    ' 从最后一行向上遍历，避免插入行后打乱后续行的判断逻辑
    For i = lastRow To 1 Step -1
        ' 排除单元格前后空格干扰，判断前两个字符是否为"SB"
        If Left(Trim(ws.Cells(i, "H").Value), 2) = "SB" Then
            ' 在当前行下方插入15个空白行
            ws.Rows(i + 1 & ":" & i + 15).Insert Shift:=xlDown
        End If
    Next i
End Sub

4. 按下F5运行代码，或者点击编辑器工具栏中的「运行」按钮（绿色三角图标）

代码关键点说明

• 从下往上遍历：如果从上到下处理，插入行后会导致后续行的行号偏移，出现漏处理或重复处理的问题
• Trim()函数：避免单元格前后的空格影响判断（比如单元格内容是 SBxxx的情况）
• 可修改ActiveSheet为具体工作表名，确保操作目标正确

方法二：手动操作（仅适合少量数据） #

如果你的数据行数很少，可以手动完成：

1. 选中H列（Data.SOURCE），点击Excel顶部的「数据」→「筛选」
2. 点击H列表头的筛选箭头，选择「文本筛选」→「开头是」，输入SB并确认
3. 此时仅显示H列以“SB”开头的行，逐个处理：
   • 选中目标行下方的1行，右键选择「插入」→「整行」，重复15次；或者直接选中目标行下方的15行（若存在），右键插入整行，一次完成15行插入
4. 取消筛选即可看到最终效果

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