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中怎樣用VBA求一列數對應位置上和取個位
資料如果很多的話，是不是c列的累加項也是對應增多的？見附件，執行巨集aa,其他資料也可以拷進去執行。 用工作表函式完成 1 b1公式 k 11 000000 下拉 2 c3公式 b 8 下拉...
excel怎麼一列變多列，EXCEL中如何把一列資料變為多列？
b1輸入 offset a 1,row a1 1 4 column a1 1,右拉，並下拉。公式中的4，是指你要分成4列，根據實際情況修改吧。假設原始資料在sheet1的a列 請嘗試以下方法 在a1中輸入公式 index sheet1 a a,column 1 每行的 數 row 下拉複製公式 然後...
如何刪除excel中一列資料所有單元格的中括號
方法一 1 選擇資料所在列，查詢和替換 中，查詢 替換留空，全部替換 2 選擇資料所在列，查詢和替換 中，查詢 替換留空，全部替換。方法二 substitute函式 輸入以下公式，然後向下填充公式 substitute substitute a1,公式表示 將a1單元格中的 和 替換為空，並轉換為數...