1樓:
alt+f11,在vbe視窗中插入模組,貼上以下**。
回到excel介面,alt+f8,執行下面這個巨集。
sub 這個巨集()
dim arr, d as object, brr(), crr, sh as worksheet
t = timer
arr = activesheet.[a1].currentregion
redim brr(1 to ubound(arr, 1), 1 to ubound(arr, 2))
set d = createobject("scripting.dictionary")
for i = 1 to ubound(arr, 1)
for j = 1 to ubound(arr, 2)
if arr(i, j) <> "" then d(arr(i, j)) = ""
next j
crr = d.keys
for j = 0 to ubound(crr)
brr(i, j + 1) = crr(j)
next
d.removeall
next i
set sh = worksheets.add(after:=worksheets(worksheets.count))
sh.name = "去重結果"
sh.[a1].resize(ubound(arr, 1), ubound(arr, 2)) = brr
msgbox "處理完成!用時" & timer - t & "秒!"
end sub
2樓:匿名使用者
這個問題用vba應該容易一些,方便的話,發檔案給我。我寫個**。
在excel中如何快速地刪除重複值行,並保留重複的一行資料~!
3樓:匿名使用者
如果是2007及以上bai
版本的話可以
du直接用去重複項的功能zhi,如果是2003及以dao下版本只版能用高階篩選來權做。
2007 資料 刪除重複項 看不看重複你自己是哪個判斷就把哪個標題打上,如果完全重複才算就所有的都打上對勾。 然後確定就可以了
2003 選中要篩選的資料 資料 篩選 高階篩選 選中將篩選結果複製到 那個列表區域應該自動新增了如果沒有你把列表區域 通過選擇為自己要建立篩選的區域 條件區域什麼也不輸入 把下邊的那個去重複的對勾打上 然後目標區域選擇一下你將打算把結果中的第一個單元格要放的位置 (注意不能跨表) 確定就可以了
4樓:找圖專業戶
就是刪除重複項,僅留一項。是吧
5樓:靜默非魚
升序或者降序排列 相同欄位就到一起 然後手工刪除最簡單
excel一列有重複項怎麼刪除重複項對應一行資料
6樓:匿名使用者
工具:excel 2007
現狀:abcd4列資料,其中a列資料有重複值,資料從第二行開始目標:刪除內a列有重複的整行資料
方法:用公式找出
容a列重複項,加以標記,通過篩選統一手工刪除重複的整行步驟:標記重複行
e2輸入 =if(countif(a$2:a2,a2)>1,"重複","")
公式下拉複製填充
所有a列重複的行全部在e列標識
2.重複行排序到一起,手工刪除
選定資料區域》開始》排序與篩選》自定義排序》彈出選項框主要關鍵字》列e>確定
確定後,e列帶有「重複」的行排到一起,手工刪除3.處理前後對比效果
7樓:萬能巡遊者
=countif(a:a,a1)
用資料篩選
來大於源1的,然後刪除bai即du是
追問:詳細點zhi~~上圖最好~
回答dao:
然後篩選,選擇大於1的
然後刪除,取消資料篩選
追問:不懂~~和我問的有關係嗎?我是菜鳥~~
回答:a列的數就代表你的姓名
EXCEL中如何插入一行還能引用上一行的公式
戒菸也是一種美 有以下方法可以 1,直接選擇有公式的那個單元格,複製 快捷鍵ctrl c 然後在你插入的那一行,要放公式的那一格里,貼上 快捷鍵ctrl v 這時候可以實現單元格內的公式複製。如果你只想複製值,記得在貼上以後,旁邊有出來一個選擇項,可以選擇,只有值。2,如果你要填寫的單元格,和被複制...
c中dataGridView的一行刪除,資料庫資料如何自動排列
ilistselectobj this.fslgridview1.getselectedkeys string flagdel 0 if selectobj null else if flagdel 1 if flagdel 2 this.fslgridview1.databind gridview...
如何在EXCEL中每隔一行插入一行相同的標題行急用啊謝謝把公式貼上來,並說明下吧
加入此表在sheet1工作表中,則在sheet2工作表中a1輸入 if mod row 3 0,if mod row 3 1,sheet1 a 2,index sheet1 a m,row 4 3 1,column 然後b1將 a 2 改成 b 2 即可,後面的列以此類推,只改這一個地方 sub t...