“删除重复项”后，能否保持数据位置不变？

viaj

EXCEL的删除重复项的功能经常用，但它删除重复项后，会把空的单元格也删除，把所有唯一的值聚在一起。
有没办法在删除重复项后，保持原来的数据的位置不变，如下图？

david_cos

先标记，在筛选状态下删

1. =COUNTIF($B$3:B3,B3)

复制代码

除

viaj

david_cos 发表于 2019-8-5 10:47
先标记，在筛选状态下删除

这方法确实巧妙。刚才搜了些贴子，其中也是这思路。

另，想通过VBA实现，但代码不知怎么写。

aleaflin

viaj 发表于 2019-8-5 11:03
这方法确实巧妙。刚才搜了些贴子，其中也是这思路。

另，想通过VBA实现，但代码不知怎么写。

vba也很简单，按B列排序，然后遍历B列，当前格内容等于上一行数据时，当前格等于空

viaj

aleaflin 发表于 2019-8-5 11:10
vba也很简单，按B列排序，然后遍历B列，当前格内容等于上一行数据时，当前格等于空

我不会写代码啊。别人写的代码，我只能看懂一些基本的。

aleaflin

sub test()
for i=activesheet.usedrange.rows.count to 3 step -1
    if cells(i,2)=cells(i-1,2) then cells(i,2)=""
next
end sub

wolegeca171

Sub 去重()
Dim j%, i, s, t
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    s = ActiveSheet.Cells(i, 1)
    If Cells(i, 1) = "" Then
        GoTo p
    End If
      For j = i + 1 To Cells(Rows.Count, 1).End(xlUp).Row
   
        If s = Cells(j, 1) Then
            Cells(j, 1) = ""
            
        End If
    Next j
        
p:
Next i

End Sub

wolegeca171

是这样的不，

wolegeca171

aleaflin 发表于 2019-8-5 13:09
sub test()
for i=activesheet.usedrange.rows.count to 3 step -1
    if cells(i,2)=cells(i-1,2) then ...

里面少了一层循环

wolegeca171

Sub test()
Dim i%, j%
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
    For j = i - 1 To 1 Step -1
        If Cells(i, 1) = Cells(j, 1) Then Cells(i, 1) = ""
    Next j
   
Next i
End Sub