删除重复值但保留excel中的其余行值

Question

我有一个项目的报告，需要根据第一列进行过滤。在几个日期有几个人在同一个项目上工作。

ProjectName People  Dates
XYZ           KK    01/03/2014
XYZ           KY    02/03/2014
ABC           LL    03/03/2014
ABC           LY    04/03/2014
BBC           XY    05/03/2014
BBC           XY    06/03/2014
CBA           XX    07/03/2014
DBC           XX    08/03/2014
DDD           XX    09/03/2014
DDD           XY    10/03/2014
DDD           XX    11/03/2014

我正在寻找的报告应如下所示：

ProjectName      People    Date
XYZ            KK      01/03/2014
               KY      02/03/2014
ABC            LL      03/03/2014
               LY      04/03/2014
BBC            XY      05/03/2014
               XY      06/03/2014
CBA            XX      07/03/2014
DBC            XX      08/03/2014
DDD            XX      09/03/2014
               XY      10/03/2014
               XX      11/03/2014

先谢谢

Answer 1

尝试这个微小的宏：

Sub luxation()
    Dim N As Long
    N = Cells(Rows.Count, 1).End(xlUp).Row
    For i = N To 2 Step -1
        If Cells(i, 1) = Cells(i - 1, 1) Then
            Cells(i, 1) = ""
        End If
    Next i
End Sub

Answer 2

很简单的非VBA方式：

• 第1步

在=A3=A2的附加列中添加公式D3，从数据的第二行开始（见下图）

• 第2步

选择标题（下图中的范围A1:D1）并应用自动过滤（转到DATA-＆gt; FILTER）。

• 第3步

使用条件D

过滤掉=TRUE列

• 第4步

在列A

中选择值

• 第5步

选择范围按Del

• 的结果

删除自动过滤器和临时列D