1樓:匿名使用者
樓主,我回答過跟您問題相類似的刪除重複行的例子,現將vba**再發過來,您只需要按一個鍵,所有重複的就會被清掉。
dim i as long
dim j as long
dim k as long
dim c as integer
k = range("a65536").end(xlup).row
i = 2
do while i <= k
for j = 1 to i - 1
c = 0
if cells(i, 1).value = cells(j, 1).value then
c = c + 1
end if
if cells(i, 2).value = cells(j, 2).value then
c = c + 1
end if
if cells(i, 3).value = cells(j, 3).value then
c = c + 1
end if
if cells(i, 4).value = cells(j, 4).value then
c = c + 1
end if
if cells(i, 5).value = cells(j, 5).value then
c = c + 1
end if
if c = 5 then
activesheet.rows(i).entirerow.delete
i = i - 1
k = k - 1
exit for
end if
next j
i = i + 1
loop
以上**,是檢查abcde五列每一行的值,所有第二個完全相同的就會被刪除.
上述**使用方法如下:
錄製巨集:選單"工具"->巨集->錄製巨集)--> "巨集名"處給巨集取名字->設定快捷鍵,"快捷鍵"下面輸入一個字母-->確定後開始錄製巨集。
編輯巨集:開始錄製後即可直接按停止鍵, 然後編輯巨集(工具->巨集->巨集(m)->選擇剛建那個巨集->點右邊的"編輯"按鈕-->進入巨集編輯介面-->刪除sub *** 至 end sub之間所有內容-->然後貼上上述程式**-->按工具欄上的"儲存"按鈕-->"檔案"選單-->關閉並反回micorsoft excel
執行巨集: 按剛剛設定的快捷鍵(ctrl+那個字母), 或者通過選單"工具"-->巨集-->巨集(m)-->視窗上選巨集名, 按"執行"按鈕執行巨集.
樓主,如果仍有關於這段**的使用問題,請hi我。
2樓:匿名使用者
第一步:對姓名一項 進行高階篩選
選中姓名列 --資料--篩選 --高階篩選--選擇不 重複的記錄-- 複製到 另一** a列(假設原表sheet1,姓名在a列 資料在a:l列 ,新表sheet2)
第二步: vlookup函式
在 sheet2 b1輸入
=vlookup(a1,sheet1!$a:$m,column(),false)
滑鼠移到b1 右下角 變成實心十字時 右拉, 然後下拉
只會為你保留一個 ,決不重複
如果你的關鍵字 是企業, 那麼請將 企業放在a列( sheet1和sheet2都放在a列)
或者 一步 最最簡單的:
選中全部---資料--篩選--高階篩選---選擇不重複的記錄--複製到 另外一個**
3樓:雙木阿林
excel如何刪除重複內容?很簡單,讓我來教會你!
4樓:匿名使用者
如果是2010版的話,可以用“資料 - 刪除重複項”功能:
5樓:匿名使用者
excel2007有刪除重複項功能,2003可以用高階篩選--選擇不重複和記錄.
6樓:匿名使用者
可能這樣處理:
第一列收信人,第二列地址
增加第三列填上數字(用ctrl下拉填一樣的)然後進行分類彙總,再過濾把彙總的結果行複製出來
7樓:歸浦秋梵
1樓這個是針對所有欄位重複的情況
1、你可以新建一個欄位,然後這個欄位=收信人&地址欄位2、然後根據新建的欄位排序
3、再新建一個欄位,比如c列,=c1=c24,篩選c1,1的都是重複的
8樓:匿名使用者
你試一下用輔助列,可能要用兩個輔助列,第一個輔助列公式:=countif($a$1:a1,a1) 這個公式中,a1是其中第一個收信人或地址,意思是統計這個區域中有多少個a1,通過下拉複製公式,凡是重複的收信人統計出來的值都大於1,用這個判斷是否重複,就可以用篩選大於1的刪除重複行了;然後第二個地址也是一樣的操作,看這樣合適你的要求嗎?
不是一個個複製,你下拉的時候就整列複製了,然後隨著你拉動的過程a1會變成a2,不過由於$a$1是絕對引用,隨著區域的擴大,重複項的累計就會變成2,3,你先試一下看!
9樓:西門無刀
我幫你解釋一下吧,用xiworld 的方法部分可以的,首選增加輔助列=countif($a$1:a1,a1) ,用以判斷**中有多少重複值,比如你說的企業的地址,如果有重複的,輔助列返回的數字是大於1的,全部判斷完畢後,輔助列就顯示瞭如1、2、3、1、1……資料,這些資料如果是1就表明是唯一的,如果大於1,說明是有重複的,然後你用自動篩選,以輔助列為基準,將大於2的全部選出來,當然,不能全部刪除,全部刪除的話你不是連一條都沒了嗎?所以,輔助列是2的你刪除1行,是3的你刪除2行……這樣就行了吧?
excel中的函式只有返回,沒有自動刪除的功能,想自動刪除你就死心吧。通過這些步驟已經幫你提高了不少效率了
10樓:
最簡單的方法:
假設a列是企業名稱、b列是企業地址、c列是收件人,第1行是標題行。
首先你對整張表按地址、同時按收件人排序(升降都可);
然後在空白處某列如d列第d3單元格設定公式:=if(or(b3=b2,c3=c2),1,"")
如果有可能地址相同但企業名稱不同或企業名稱相同但地址不同而收件人相同則公式為:=if(or(and(a3=a2,b3=b2),and(a3=a2,c3=c2)),1,"")
設好公式後把公式拉到最底一行。
選中a列到d列,設定自動篩選,把d列是1的篩選出來,拖選篩選出來的行右鍵刪除!
不是就搞定了嗎?
你也可以拖選要刪除的內容,點delete鍵刪除內容保留其他列的內容。怎麼刪就隨你啦~
如果你想把刪除後的內容恢復原來的順序,只需要事先加一列序號,刪完後再用序號排序就可以,夠詳細吧,夠簡單吧?呵呵
11樓:匿名使用者
例如收信人和地址在ab列
選中ab列,資料-篩選-高階篩選
注意是選中ab列篩選,不要擴充套件資料區域
勾選,選擇不重複的記錄.
然後把篩選結果複製到新的表中.
剛看到"收信人或地址,只要有一個是重複的就刪除重複的,保留一項! ",你意思是說"相同的地址但不同的收信人"也要刪除一個?你的要求有點自相矛盾啊
實在不行,hi我吧
子易空間站 - excel培訓專家
如何在excel同一列中刪除 相同的字?
12樓:匿名使用者
給樓主一個簡單的吧,選中那一列,ctrl+f,把“其它備註”替換,替換的內容為空白,全部替換,就可以了。如圖所示。
13樓:曙光歐巴
如果出現格式相同比如, 張三(你好他好)一列都是這個樣式,這個時候你想去除一列得括號裡面得文字(你好他好或者別的文字得時候)這種替換得時候上面選擇(*) 下面換成想替換得內容就行了
14樓:匿名使用者
選中該列---資料--刪除重複項,即可。彈出對話方塊,要是刪除重複單元格所在的整個行,則選擴張區域,否則,選當前區域。
如何快速刪除excel兩列中相同的資料
不該年少輕狂 刪除excel兩列中重複的資料方法 方法一 1.在d1輸入 2.if countif b b,c1 該行c列資料在b列有重複 3.下拉填充後,對d列進行篩選,並刪除對應的c列資料。然後刪除d列多餘公式,並分別複製b c列資料到d列就好了。方法二 1.在d列輸入 if iserror c...
如何在excel中保留相同時間項,刪除時間不同項
委婉點方法 函式if判斷相同項,再選擇刪除 判斷之前要對資料先排序 如下截圖 再用函式 if c2 c1,1,0 公式下拉。相同則顯示1,不同則為0 請按照以下流程操作 1,在b列後面插入2列 2,在c2 輸入公式 vlookup a2,e f,column a1 d2公式 從c2橫拉一格或者複製 ...
excel中如何將不同行不同列幾種相同內容的單元格分別用不同的顏色標記出來
傅行雲時代 1 選中資料區域,選擇條件格式 2 突出顯示單元格規則,選擇等於,為等於以下值的單元格設定格式 3 設定為中選擇自定義格式 4 設定好相應格式點確定,重複上述操作,直到設定完成。 退休畫線工 可以用條件格式實現,如果是excel2007以下版本,可以實現多個條件格式,而2003只能實現3...