在Excel

Question

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

如果我有一长串不同的供应商但想在每个组下添加一行（有时它们会被列出不止一次。是否有一个基本的公式，而不是逐一进行。

实施例

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. 选择范围。
2. 转到数据选项卡→单击小计。

更多info here