1樓：匿名使用者
首先按b列位址排序，讓相同位址的資料在一起。在d2輸入下列公式：
=if(b2<>b1,1,d1+1)
在e2輸入下列公式
=if(d2<7,"保留","刪除")
最後下拉拖拽公式進行複製
2樓：
可以採用輔助列，假設資料在abc列，
在d列輸入
從d2開始輸入
=countif(a$2:a2,a2)
下拉填充，篩選d列小於7即可
需要幫忙可以hi我
3樓：匿名使用者
剛給人編了乙個類似的，你看看
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
4樓：
在郵編旁邊做乙個輔助列：
假如郵編為c列，則在c2單元格中輸入公式並下拉：
=if(b2=b1,n(c1)+1,1)
5樓：雲中子
d2輸入公式：=if(countif($b$2:b2,b2)<6,"寄賀卡","")下拉，篩選這一列為寄賀卡的。
6樓：匿名使用者
d3=if(countif($b$1:b2,b2)<=6,a2,"")
下拉前六名就顯示出來了
excel中如何在兩列資料中查詢相同的內容，並標記出來
關一雯 我們以下表的資料為例，具體的介紹一下操作方法。步驟 excel分別對ab列兩列資料對比，比如a2 b2，就返回相同，否則返回不相同。d2公式為 if c2 b2,相同 不同 這樣就可以實現excel兩列對比,判斷c2和b2是否相同，如果相同就返回值 相同 反之則顯示不同。同樣的方法比較其它資...
如何在Excel中插入，如何在Excel中插入word文件
可以使用物件鏈結和嵌入 ole 將其他程式 如 word 或 excel 中的內容包括在內。ole 受許多不同程式支援,而 ole 用於使在乙個程式中建立的內容在另乙個程式中可用。例如,您可以在 office excel 工作簿中插入 office word 文件。若要檢視可插入的內容型別,請單擊 ...
如何在Excel中建立，如何在Excel中建立模板
1 個性化設定1 設定文件背景色。切換到 頁面布局 選項卡，點選 背景 按鈕，從彈出的視窗中選擇一幅 做為背景。2 個性化設定2 設定字型樣式。點選 單元格區域右上角，選擇所有單元格，然後將字型設定為 仿宋 gb2312 大小設定為 14 顏色設定為 深紅色 3 個性化設定3 設定頁面布局。切換至 ...