求公式，谢谢，样例在附件里

知道@知道

求公式，谢谢，样例在附件里

jiasb2002

在A2单元格里输入1,在A3单元格输入:"=IF(B3=B2,A2,A2+2)",然后双击运算此函数,这样序号这一列可以得到全是单数的序号,在A列下边用自动填充,超始值为2,步进值为2,这样可以得到一些双数的序号,按序号大小进行排序,由于双数序号行是没有数据的,这样就可以得到每一组相同的创建人后插入一个空行的目的,最后把序号清空就行.这个办法比较笨,但同样可以达到目的.

jiasb2002

补充,要先将创建人这一列按升序或降序排列过再进行以上的操作.

喝酒吃肉

赞，楼上方法很灵活，厉害

喝酒吃肉

研究了一下vba，也可以达到同样效果
Sub order()
    Dim x, y, z
    '求出最后一行
    x = Range("B" & Cells.Rows.Count).End(xlUp).Row
    '排序
    Sheets("原数据").Range("A1:D" & x).Sort key1:=Range("B1"), order1:=xlAscending, Header:=xlYes
    '利用字典不重复的计数，计算创建人的个数
    arr = Range("B2:B" & x)
    Set d = CreateObject("scripting.dictionary")
        For y = 1 To x - 1
            d(arr(y, 1)) = d(arr(y, 1)) + 1
            a = d.Count
        Next
    '利用循环，若上下两个创建人不等，然后插入一个空白行
        For z = 2 To x + a
            If Range("B" & z) <> Range("B" & z + 1) Then
                Rows(z + 1).Insert shift:=xlDown
                z = z + 2
            End If
        Next
End Sub