excel排重记录

来源：百度知道 编辑：UC知道 时间：2024/05/21 16:41:40
我把数据库里的某个表导出到excel，导出后的excel表里一共有三个字段，假如是A字段，B字段，C字段，我想根据某一个字段进行排重，就像数据库里的那样，比如根据C字段等，不知如何去做，请各们高手帮助啊，先谢谢了！
我不是排序，我是想排重，把某个字段重复的记录删掉

贴主的要求用宏感觉会好做些
或许可以试下以下代码:
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

把所有数据选中，然后 数据 排序 选择你要排序得字段 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<