插入行在Excel中不同的行

想这可能是一个基本的，但我恐怕不知道该怎么做！

如果我有一个长长的供应商名单，但是想在每个组别下面添加一行（有时候他们会被列出不止一次，有没有一个基本的公式，而不是一个接一个的做。

例

SUPPLIER1 SUPPLIER1 SUPPLIER1 SUPPLIER2 SUPPLIER2 SUPPLIER3 SUPPLIER4 SUPPLIER4 

看起来像

 SUPPLIER1 SUPPLIER1 SUPPLIER1 SUPPLIER2 SUPPLIER2 SUPPLIER3 SUPPLIER4 SUPPLIER4 

非常感谢您的帮助。

标记

Answer 1

在VBA中很快完成：

 Sub split_Series() Dim lastRow&, i& lastRow = Cells(Rows.Count, 1).End(xlUp).Row For i = lastRow To 1 Step -1 If i > 1 Then If Cells(i, 1).Value <> Cells(i - 1, 1).Value Then Cells(i, 1).EntireRow.Insert End If End If Next i End Sub 

这是假设您的A列数据最多，并且是供应商的数据。 如果没有，只要将Y值（ cells(x,y) ）更改为2（对于“B”），3（对于“C”）等等

Answer 2

一种不使用VBA的简单方法就是将小计插入工作表中的数据列表中。

1. select范围。
2. 转到数据选项卡→点击小计。

更多信息在这里