根据第一列对行进行分组的行间距

Question

我需要知道如何根据 profile_id 轻松地分隔数据。在每个数字之间添加一行将有助于用户清晰地查看数据。上面的图片是当前数据的样子，下面的图片是我希望它看起来的样子。

Answer 1

如果您想避免使用 VBA，而您的唯一目标是直观地区分每个 ID 号，则可以使用以下公式的条件格式：

=ISODD($A1)

Answer 2

如果手动操作太多，您可以使用带循环的简单宏来检查该列。

就像是

Sub ShiftGroups()
Dim lastCell As Variant: lastCell = Range("A2").Value2             
For Each cell In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row) 
    If Not cell.Value2 = lastCell And Not cell.Value2 = "" And Not lastCell = "" Then
        cell.EntireRow.Insert
    End If
    lastCell = cell.Value2
Next cell
End Sub

这是一个非常基本的循环，具有跳过任何已经为空的行的附加功能，因此运行几次应该没有问题。

如果你不熟悉宏/Visual Basic，你可能需要从显示开发者选项卡。然后查找如何使用它们的基础知识。