当值更改时，添加具有值的行

我有下面的表格

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个星号。 喜欢这个

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

你可以请改变我的代码上面也添加10个星号在它插入的空白行？

Answer 1

 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 

Answer 2

VBA是没有必要的，因为小计会达到很多相同的，有一点帮助，并提供自动分组，可能会或可能不会被赞赏。

假设value1在A1中，selectDATA> Outline – Subtotal两列，每次更改： value1 ，使用函数： Count ，将小计添加到：只检查value1 ，检查replace当前小计和Summary下面的数据），OK。 筛选插入的列以select“文本筛选器”，“包含…”，“ c ，然后在“B1：

 ********** 

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