excel排重记录

发布网友 发布时间：2022-09-16 19:29

我来回答

共5个回答

热心网友 时间：2023-11-05 01:26

把所有数据选中，然后 数据 排序 选择你要排序得字段 C字段 就可以了
是这个啊。用 宏 可以简单实现，你会编程不？我给个例子你参考一下！
Sub delsame()
Dim i
Dim j
Dim h
Dim a

i = 1
Do While Cells(i, 1) <> ""
a = Cells(i, 1)
j = i + 1
h = 1
Do While Cells(j, 1) <> ""
If Cells(j, 1) = a Then
Rows(j).Delete Shift:=xlUp
h = h + 1
Else
j = j + 1
End If
Loop
If h > 1 Then
Cells(i, 1).Font.ColorIndex = 3’重复的以红色显示
End If
i = i + 1
Loop

End Sub

热心网友 时间：2023-11-05 01:26

贴主的要求用宏感觉会好做些
或许可以试下以下代码:
Sub mine()
Dim a
bt = "试一下"
a = InputBox("请输入你要删除重复记录的列", bt)
Cells.Select
Selection.Sort Key1:=Range(a & "1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal
Dim b As Long
b = 1
1 If Range(a & b) = "" Then
MsgBox a & "列的重复数值已清除完了!", vbInformation, bt
Exit Sub
Else
b = b + 1
If Range(a & b) = Range(a & b - 1) Then
Rows(b).Delete
b = b - 1
Else
End If
GoTo 1
End If
End Sub

热心网友 时间：2023-11-05 01:27

把你的表格发给我！我帮你做好！发到：wangziyilang@126.com做好后给你发回去

热心网友 时间：2023-11-05 01:27

=IF(ISNA(VLOOKUP(A2,A3:B245,1,FALSE)),"否","是")
判断下面有没有和当前单元格一样的，有就显示是，没有就显示否。

热心网友 时间：2023-11-05 01:28

是不是分类汇总可以解决这个问题