Vba 值更改时添加带值的行

我有下表

value1 | value2
001    | car
001    | car1
002    | moto
002    | moto2
003    | ship

我想在“value1”像这样更改时插入一个空行

value1 | value2
001    | car
001    | car1
       |
002    | moto
002    | moto2
       |
003    | ship

为此，我使用了这段代码，它工作得很好：

Sub blankRows()
Dim LR As Long, i As Long
LR = Range("E" & Rows.Count).End(xlUp).Row
For i = LR To 2 Step -1
    If Range("E" & i).Value <> Range("E" & i - 1).Value Then Rows(i).Insert
Next i
End Sub

你能修改上面的代码，在它插入的空白行中添加10个星号吗？< /P> <代码>子BLANKROW（）

Sub blankRows()
Dim LR As Long, i As Long
LR = Range("E" & Rows.Count).End(xlUp).Row
For i = LR To 2 Step -1
    If Range("E" & i).Value <> Range("E" & i - 1).Value Then
    Rows(i).Insert
    Cells(i, 1) = "**********"
    End If
Next i
End Sub

暗淡的LR一样长，我一样长 LR=范围（“E”和Rows.Count）.End（xlUp）.Row 对于i=LR至2步骤-1 如果范围为（“E”&i）.值范围为（“E”&i-1）.值，则 第（i）行。插入 单元（i，1）=“************” 如果结束 接下来我 端接头

---

VBA是不必要的，因为Subtotal将在一点帮助下实现大致相同的效果，并提供自动分组，这可能值得赞赏，也可能不值得赞赏

假设A1中有

value1

，选择两列数据>大纲-小计，每次更改：

value1

，使用函数：

Count

，将小计添加到：

value1

仅选中，选中替换当前小计和数据下方的摘要），确定。筛选要为文本筛选器选择的插入列，包含…，

c

，确定和B1中的：

**********  

---

向下复制以适应，删除列A，如果需要，删除最后占用的行

Hmm添加

单元格（i，1）。value=“**********”

假设A列。@Raystafarian。让我测试一下。你呢？不，我没有。如果，则需要一个

结束。我添加了你们建议的代码，但它不能正常工作。它向列A中的所有字段添加星号。我只想将星号添加到前一个宏添加到我的错误的空行中。我认为这很明显，但您需要将其嵌套在if语句XD Edit中：您需要一个
end if
。呃，OP说，列XD偷了我的雷霆=P@findwindow如果你想发布答案，那就去吧。我很确定我可以删除社区维基。看起来OP并没有得到
的结局，如果
没有，只是拉了拉你的链条^_^
**********