如何在excel中把地址相同的项只保留前6个

excel中如何在同一列中查找相同的项并删除只保留一个~

1、打开一张excel表，在这张表的12行数据里面，同颜色底纹的数据是重复的，现在就是要用excel来清理掉这些重复的数据，首先点击菜单栏的“数据”选项卡；

2、然后用鼠标框选C2：C13单元格，双击三方的单元格之后，选中的一列会全部进行选中；

3、在页面的上方找到“删除重复项”选项，然后鼠标单击“删除重复项”选项，然后会出现一个新的页面；

4、我们选择“扩展选定区域”并单击删除重复项，然后会得到一个新的选项框，然后把“序号”和“姓名”的复选框去掉，留下日期时间选项即可，然后点击确定；

5、这时excel会出现一些提示，这时可以发现了9个重复值，已将其删除，保留了三个唯一值。

在B列输入一个辅助列，然后在辅助列中输入以下公式，并向下填充公式
=INDEX(A:A,MATCH(C1,C:C,1))
将B列数据“复制”并“选择性粘贴”为“数值”，然后将B列为0的数据筛选掉，并删除A列数据即可。
希望对你有所帮助！

详见附图

假设单位地址在B列，按alt+f11 双击sheet1，粘贴以下代码

Sub aa()
For n = [B65536].End(xlUp).Row To 1 Step -1
If Application.WorksheetFunction.CountIf(Columns("B"), Range("B" & n)) > 6 Then Rows(n).Delete
Next n
End Sub

运行此宏自动删除同一个地址前6个之外的数据。这个宏简单粗暴，记得先备份好，删除的数据不可恢复。

首先按B列地址排序，让相同地址的数据在一起。在D2输入下列公式：
=if(B2<>B1,1,D1+1)
在E2输入下列公式
=IF(D2<7,"保留","删除")

最后下拉拖拽公式进行复制

可以采用辅助列，假设数据在ABC列，
在D列输入
从D2开始输入
=countif(A$2:a2,a2)
下拉填充，筛选D列小于7即可
需要帮忙可以HI我

刚给人编了一个类似的，你看看
Sub test()
Dim i As Integer, n As Integer
Dim j As Integer, k As Integer
Dim arr() As Variant, brr() As Variant
n = Sheet1.[a65536].End(xlUp).Row
For i = 3 To n
If Sheet1.Range("b" & i).Value <> "" Then
k = k + 1
ReDim Preserve arr(1 To k)
arr(k) = Sheet1.Range("b" & i).Value
End If
Next i
k = 0
For i = LBound(tjcf(arr), 1) To UBound(tjcf(arr), 1)
If tjcf(arr())(i, 2) >= 5 Then
k = k + 1
ReDim Preserve brr(1 To k)
brr(k) = tjcf(arr())(i, 1)
End If
Next i
k = 3
For i = 1 To UBound(brr)
For j = 1 To n
If brr(i) = Sheet1.Range("b" & j).Value Then
k = k + 1
Sheet1.Range("a" & j & ":g" & j).Copy
Sheet3.Range("a" & k).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
Next j
Next i

End Sub

Function tjcf(ByRef srr() As Variant)
Dim i As Integer, j As Integer
Dim l As Integer, krr() As Variant
Dim k As Boolean, h As Integer
Dim rrr() As Variant
ReDim Preserve krr(1 To 1): krr(1) = srr(1): l = 1
For i = 1 To UBound(srr)
k = False
For j = 1 To UBound(krr)
If srr(i) = krr(j) Then
k = True: Exit For
End If
Next j
If k = False Then
l = l + 1
ReDim Preserve krr(1 To l)
krr(l) = srr(i)
End If
Next i
ReDim rrr(1 To l, 1 To 2)
For j = 1 To UBound(krr)
h = 0
For i = 1 To UBound(srr)
If srr(i) = krr(j) Then h = h + 1
Next i
rrr(j, 1) = krr(j): rrr(j, 2) = h
Next j
tjcf = rrr
End Function

在邮编旁边做一个辅助列：
假如邮编为C列，则在C2单元格中输入公式并下拉：
=if(B2=B1,N(C1)+1,1)

这是宏吗？
对，

---

如何在excel中把地址相同的项只保留前6个视频