1樓：匿名使用者
可以加輔助列嗎？
先判斷一下數字有幾個，再把符合條件的，連在一起。
w2公式：=if(countif($a2:a2,a2)接著公式向下向右複製到ag列。
l2公式：=textjoin("、",true,if(w2:ag2=l$1,a2:k2,""))
輸入後，同時按下ctrl+shift+enter三個鍵，接著公式向下向右複製到p列。
r2公式：=countif($a2:$k2,r$1)接著公式向下向右複製s列。
2樓：匿名使用者
我寫著玩的，不必太在意（前提必須必須保證資料格式和你**一致！！！）
sub imkuro()
dim cls as range
for a = 1 to 5
cells(1, a + 12).value = "s" & a + 1
next
for b = 1 to 11
cells(1, b).value = "-"
next
cells(1, 20).value = "18"
cells(1, 19).value = "17"
range("a1:t1").font.color = rgb(210, 15, 48)
range("a1:t1").font.bold = 1
columns("u:ag").select
selection.entirecolumn.hidden = true
for rs = 2 to range("b2").end(xldown).row
for cs = 1 to 11
cells(rs, 21 + cs).value = "=countif($a" & rs & ":$k" & rs & "," & cells(rs, cs).
value & ")/100+" & cells(rs, cs).value
next
next
columns("v:af").select
selection.copy
selection.pastespecial paste:=xlpastevalues
for rs = 2 to range("b2").end(xldown).row
for a = 22 to 32
for b = 22 to a - 1
if cells(rs, a).value = cells(rs, b).value then
cells(rs, a).value = ""
end if
next
next
next
dm = range("b2").end(xldown).row
range("m2:q" & dm).value = ""
for rs = 2 to dm
for a = 22 to 32
ms = (cells(rs, a).value - int(cells(rs, a).value)) * 100
if int(cells(rs, a).value) = 18 then
cells(rs, 20).value = (cells(rs, a).value - 18) * 100
elseif int(cells(rs, a).value) = 17 then
cells(rs, 19).value = (cells(rs, a).value - 17) * 100
end if
if round((cells(rs, a).value - int(cells(rs, a).value)) * 100, 0) = 2 then
cells(rs, 13).value = cells(rs, 13).value & int(cells(rs, a).value) & ","
elseif round((cells(rs, a).value - int(cells(rs, a).value)) * 100) = 3 then
cells(rs, 14).value = cells(rs, 14).value & int(cells(rs, a).value) & ","
elseif round((cells(rs, a).value - int(cells(rs, a).value)) * 100) = 4 then
cells(rs, 15).value = cells(rs, 15).value & int(cells(rs, a).value) & ","
elseif round((cells(rs, a).value - int(cells(rs, a).value)) * 100) = 5 then
cells(rs, 16).value = cells(rs, 16).value & int(cells(rs, a).value) & ","
elseif round((cells(rs, a).value - int(cells(rs, a).value)) * 100) = 6 then
cells(rs, 17).value = cells(rs, 17).value & int(cells(rs, a).value) & ","
end if
next
for bg = 2 to range("b2").end(xldown).row
for sss = 13 to 17
if right(cells(bg, sss).value, 1) = "," then
cells(bg, sss).value = left(cells(bg, sss).value, len(cells(bg, sss).value) - 1)
end if
next
next
next
columns("u:ag").select
selection.delete
range("m1:t" & bg - 1).borders.linestyle = 1
range("a1").select
end sub
冗餘**有點多，也難得去改了。
3樓：匿名使用者
上具有行號列號的表的截圖，稍詳細說明一下，看能否幫你
excel篩選同一列重複的資料到同一行。
4樓：沈一民
上傳帶行列號的有資料示例的**截圖，清楚說明已知條件，達成什麼樣的結果，才能有針對性地給你準確的答案。
什麼意思？看不懂。c列是提取不重複的資料吧？
黑框內的4個1、3個2是哪來的？
c1=a1
c2=index(a:a,min(if(countif(c$1:c1,$a$1:$a$20),4^8,row($a$1:$a$20))))&""
陣列公式向下複製【陣列公式，公式輸完後，游標放在公式編輯欄同時按下ctrl+shift+回車鍵，使陣列公式生效】
d1=if(column(a1)>countif($a$1:$a$20,$c1),"",$c1)向下向右複製
excel重複項篩選,然後提取重複項！
5樓：苗喬恩
提取公式：
=if(countif($b:$b,$b1)>1,a1,"")右拉下拉填充，如圖所示：
需要去除空行的話可以做最後的資料處理：
6樓：匿名使用者
首先全部複製到新表，=if(countif(b:b,b1)>1,"重複")
選擇d列，組合鍵ctrl+g，定位邏輯值
整行刪除
得到最終結果
篩選a至h列，把不重複的資料提取到j至q列，重複的資料按照列在前的要求，只保留一個。
7樓：匿名使用者
見截圖以4列為例
f2輸入
=if(countif($e$2:e$5,a2),"",a2)公式下拉再右拉
8樓：匿名使用者
在j2單元格輸入以下公式，然後向右向下填充公式
=if(countif($a2:a2,a2)=1,a2,"")
excel一列資料有重複的怎麼把重複的只顯示一次
用以下公式 index a a,min if countif c 1 c1,a 2 a 100 200,row 2 100 陣列公式，先按住ctrl shift,最後回車，使得編輯欄公式兩端出現花 專括號公式下拉到無數屬據 漢字不能顯bai示結果的原因 if的第du二個引數 a 2 a 17，得出z...
請問如何在EXCEL中篩選出來一列中重複三次以上的內容
假設a列為篩選列 1 根據a列進行排序 2 插入1列 設a列前插入1列 3 從第3行開始a3 if and a3 a1,a3 a2 重複項 再向下複製 4 再根據a b列篩選，並進行分類彙總 另一種方法可用 重複1 2 3 a1 if countif b 1 b 500,b1 3,重複項 假設1 5...
EXCEL中如何計算列中同一資料重複次數
可能樓主不知道怎麼排序吧.你要求相對應的列也要跟著變動位置,所以是回一個綜合排序.滑鼠選擇要進行答排序的所有列標,比如a b c d e f,然後點工具欄裡面的 資料 選擇 排序 這時候會有提示你按照哪一列進行排序,你選擇好後確定即可 要想辦法把數字先取出來單獨成列,然後根據這個列去排序比如資料在a...