[已解决]请问如何自动删除重复的数据

jydodo

如果一行中有几个数据20，要自动删除第一个20以外的其它20，不知如何设置公式，这个公式能通过右拉下拉实现数据更新。谢谢。如图 重复.zip (1.87 KB, 下载次数: 52)

2013-1-2 17:22 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

w1098

2013-1-2 17:42

1. =INDEX(1:1,SMALL(IF(MATCH($A1:$G1,$A1:$G1,)=COLUMN($A:$G),COLUMN($A:$G),20),COLUMN()))&""

复制代码

数组公式

跳转到最佳答案楼层

hwc2ycy

2010已经自带这个功能了。

hwc2ycy

w1098

1. =INDEX(1:1,SMALL(IF(MATCH($A1:$G1,$A1:$G1,)=COLUMN($A:$G),COLUMN($A:$G),20),COLUMN()))&""

复制代码

数组公式

一杯清荼

1. =INDEX(1:1,SMALL(IF(FREQUENCY($A1:$G1,$A1:$H1),ROW(1:7),99),COLUMN()))&""

复制代码

490540970

Private Sub CommandButton1_Click()
Sheet1.UsedRange.Copy [a5]
For Each rng1 In Range("a5").CurrentRegion
    s = rng1.Value
    ads = rng1.Address
    For Each rng2 In Range("a5").CurrentRegion
        If rng2.Value = s And rng2.Address <> ads Then
            rng2.Delete Shift:=xlToLeft
        End If
    Next
Next
End Sub

jydodo

谢谢。。。。。。。。

yijun6806

怎么无法下载呢