excel怎么删除每一行中的重复值 例如 第一行1231 1234 1235 1321 12...
发布网友
共2个回答
热心网友
执行前：
执行后：
VBA代码：
Sub 删除行重复()
Dim arr, db, i&, j%
arr = ActiveSheet.UsedRange
Set db = CreateObject("Scripting.Dictionary")
For i = LBound(arr) To UBound(arr)
db.RemoveAll
For j = LBound(arr, 2) To UBound(arr, 2)
If db.Exists(arr(i, j)) Then
arr(i, j) = Empty
Else
db.Add arr(i, j), True
End If
Next j
Next i
ActiveSheet.UsedRange = arr
End Sub
程序见附件（电脑登陆打开，手机版无法下载）。
热心网友
Sub 删除重复数据()
Dim i%, k%, n%
For k = 1 To [a65536].End(3).Row
n = Range("iv" & k).End(1).Column
For i = n To 1 Step -1
If Application.CountIf(Range(Cells(k, 1), Cells(k, n)), Cells(k, i)) > 1 Then Cells(k, i).Delete Shift:=xlToLeft
Next
Next
End Sub
