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中,如何刪除如圖的圈圈
那個是 控制項工具箱 裡的 單選 按鈕。你得先開啟 控制項工具箱 然後在 設計 模式下,那些東西就可以刪除了。ctrl g 選擇 物件,然後就全部選中了,點del鍵,就刪除了 圓圈出現的原因 excel內容是從網頁中直接拷貝過來的,或者是後來新增的控制項。刪除這種圈圈的方法 有下列幾種 常用方法 直...
如何刪除裡重複的題目,如何刪除WORD裡重複的題目?
這個恐怕要人工比對吧,貼上題目主要內容,編輯查詢相同內容 刪除 在乙份word試題庫中有很多重複的題目,現在我並不知道哪些題目重複,如何找出並刪除?工具 材料 microsoft office word2016版,word文件。1 首先選中word文件,雙擊開啟。2 其次在該介面中,選中會重複的題目...
怎麼在excel裡的多個單元格中增加相同的內容?
在新的一列首行第乙個單元格輸入 原列第乙個單元格 需要增加的文字 向下拉,拉到你需要的位置就可以了。1.按住鍵盤ctrl鍵,使用滑鼠點選需要輸入內容的單元格,也可以在按住ctrl鍵的同時使用滑鼠拉選區域來選擇需要輸入單元格的內容。在欄輸入需要輸入的資料。2.按下ctrl 回車鍵,輸入的資料內容就一次...