1樓：匿名使用者
1、開啟要進行資料處理的**，
2、按alt+f11，進入vbe程式操作頁面，3、將滑鼠下移，右鍵彈出如圖，
4、選擇插入-模組，
5、滑鼠向右移動，將如下**寫入：
sub test()
dim d as object
dim r%, i%
dim arr
set d = createobject("scripting.dictionary")
with worksheets("sheet1")r = .cells(.rows.count, 3).end(xlup).row
arr = .range("c2:d" & r)for i = 1 to ubound(arr)d.removeall
for j = 1 to len(arr(i, 1))ch = mid(arr(i, 1), j, 1)d(ch) = ""
next
arr(i, 2) = join(d.keys, "")next
end with
end sub
6、按f5，執行**，後返回工作表，會發現單元格中的重複字元已經被去掉。
2樓：宇哲
excel 自帶功能就有刪除重複項啊……
3樓：匿名使用者
option explicit
sub sample()
dim j as integer
dim src as string, dst as string
dim d
set d = createobject("scripting.dictionary")
src = "bg"
dst = "bh"
with activesheet
for j = 1 to .range(src & .rows.count).end(xlup).row
if not d.exists(trim(.range(src & j))) then d.add trim(.range(src & j)), ""
next
.range(dst & 1).resize(d.count) = worksheetfunction.transpose(d.keys)
end with
set d = nothing
end sub
excel 怎麼在同一列刪除重複資料
Excel怎麼用巨集刪除每隔一列的所有列內容
刪除偶數列內容 sub test for i 128 to 1 step 1columns i 2 clear next end sub 刪除奇數列內容 sub test for i 128 to 1 step 1columns i 2 1 clearnext end sub sub 清除偶數行內容...
excel一列中怎麼刪除重複項，Excel一列中，如何刪除重複的資料？相同資料只保留一個？
第一種情況 在b1單元格輸入公式 if a1 a2,a1 然後複製下拉,再將b列的空格刪除或者排序後就可以了.第二種情況 先將a列的資料先排序後再按第一種情況的方式操作就可以了.在表前增加一列，此時序號列變為b列，用公式 if b1 b2，1 0 然後將a列重新貼上一次，再用排序的方法就可以了，我剛...
excel怎麼把從一列到另一列的資料刪除
方法 將想要刪除的哪一行隱藏，這樣就不會更改結果了 將顯示結果的這欄資料複製下來，再在相同的位置上用 選擇性貼上 再選 數值 進行貼上即可。可利用公式實現此功能。具體操作如下 以將a列資料新增到b列的空白處為例 首先在任意其他列輸入公式 if b1 a1,b1 然後點選enter 將滑鼠停放在單元格...