如何为Excel中自动插入的行填充预设文本？（附VBA插入行代码）

当然可以！你只需要在插入行的逻辑后，添加一段给新插入单元格批量赋值的代码就行。我已经帮你优化了原有代码，既能保留逐行插入6行的功能，还能自动把item1到item6填入对应行的B列（如果需要填充其他列，直接修改列标识即可）：

Sub InsertRowsWithText()
    Dim lastRow As Long
    lastRow = Range("B" & Rows.Count).End(xlUp).Row
    Dim rowCnt As Long
    ' 从最后一行往上循环，避免插入行后打乱行号顺序
    For rowCnt = lastRow To 2 Step -1
        ' 插入6行
        Range("B" & rowCnt).Resize(6, 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        ' 给刚插入的6行填充预设文本
        Range("B" & rowCnt & ":B" & rowCnt + 5) = Application.Transpose(Array("item1", "item2", "item3", "item4", "item5", "item6"))
    Next
End Sub

关键细节说明： #

• 反向循环：从最后一行往第2行倒着循环是核心技巧，要是从前往后插入行，会导致后续行的行号被打乱，漏掉部分行的处理。
• 批量赋值：用Application.Transpose(Array(...))把一维数组转成垂直方向的序列，一次性填充6个单元格，比逐行赋值效率高很多。
• 自定义调整：如果要填充其他列（比如A列），只需要把代码里的Range("B"...)改成Range("A"...)即可；要是想修改预设文本，直接替换数组里的内容就行。

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