[求助]：[求助]数据重复问题

lsm1

[求助]数据重复问题
求助各位DX，我有一个问题需要处理。

我用excel制作新闻统计列表，每行记录一条新闻的具体信息：发表媒体、发表时间、标题等等。表中有大约两万条新闻，有很多是重复的，我怎样把重复的新闻快速挑出来呢？

xiaog

1、数组公式 Ctrl+Shift+Enter
2、数据－筛选－高级筛选－选择不重复
3、VBA
Sub xiaog()
On Error Resume Next '防找不到单元格
Const iColumn& = 5 '需要处理的列数
Dim r&, N&
Dim V As Variant, Rng As Range
Application.ScreenUpdating = False
Columns(iColumn).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlShiftUp
Set Rng = ActiveSheet.Cells(65536, iColumn).End(xlUp)
N = 0
For r = Rng.Row To 1 Step -1
V = Cells(r, iColumn).Value
If Application.WorksheetFunction.CountIf(Columns(iColumn), V) > 1 Then
Cells(r, iColumn).Delete Shift:=xlShiftUp
N = N + 1
End If
Application.StatusBar = "正在处理：第" + Format(r) + "行"
Next r
MsgBox "删除行数合计：" + Format(N)
Application.StatusBar = False
Application.ScreenUpdating = True
End Sub

loufugang

最初由 lsm1 发布
[B][求助]数据重复问题
求助各位DX，我有一个问题需要处理。

我用excel制作新闻统计列表，每行记录一条新闻的具体信息：发表媒体、发表时间、标题等等。表中有大约两万条新闻，有很多是重复的，我怎样把重复的新闻?.. [/B]

用筛选功能