1樓：匿名使用者
用字典的方法參考**
subpushandpop()
onerrorgotoerr_lab
dimcl asrange
dimkey asvariant
dimrow aslong
row = 3
sheets("sheet3").range("b3:c65535").clearcontents
setkey = createobject("scripting.dictionary")
foreachcl insheets("sheet2").range("b3:b65535")
ifcl.value = ""thenexitfor
ifnotkey.exists(cl.value) then
key.add cl.value, cstr(cl.value)
sheets("sheet3").cells(row, 2).value = cl.value
'......
doevents
row = row + 1
endif
next
setkey = nothing
exitsub
err_lab:
msgbox err.number
endsub
2樓：匿名使用者
我自己寫程式是寫的乙個，看看行不行,變數你自己宣告redim arr6(0 to gtsl + 20)t = 0
for i = 0 to ubound(arr5) - 1js = 0
if arr5(i) <> "" thenfor j = 0 to gtsl + 10if arr6(j) = arr5(i) thenjs = js + 1
end if
next j
if js = 0 then
arr6(t) = arr5(i)
t = t + 1
end if
end if
next i
3樓：匿名使用者
先將陣列排序，然後比較就可以找到重複的值，然後再刪除
4樓：
使用collection
excel vba中怎麼去除一維陣列中重複的資料
5樓：匿名使用者
遍歷陣列，通過字典去除重複資料
excel vba 用陣列方法篩選不重複資料 5
excel vba二維陣列 如何查詢其中的重複資料
6樓：一騎當後
你好解決問題如下，不要忘記給最佳答案啊。
sub aa()
dim x, y, k, m
dim arr, brr, crr
dim d as object
set d = createobject("scripting.dictionary")
brr = range("b2:b8")
for x = 1 to ubound(brr)crr = vba.split(brr(x, 1), ",")for m = 0 to ubound(crr)d(crr(m)) = d(crr(m)) + 1next
next
k = 1
for x = 2 to 8
arr = vba.split(cells(x, 2), ",")for y = 0 to ubound(arr)if d(arr(y)) > 1 thenrange("b" & x).characters(k, len(arr(y))).
font.colorindex = 3
end if
k = k + len(arr(y)) + 1next
k = 1
next
end sub
裡面的目錄怎麼自動生成，word裡面的目錄怎麼自動生成
風會教育 word中怎麼自動生成目錄 中關村 wps目錄怎麼自動生成？ 雙木阿林 word如何設定自動生成目錄？很簡單，讓我來教會你！ office學習技巧 word怎麼設定自動生成目錄？ 資訊科技講堂 word教程79 word文件怎樣自動生成目錄？自動生成目錄的方法和技巧。word文件製作目錄採...
魔芋裡面的黑點怎麼回事，魔芋裡面的黑點怎麼回事 5
心朝大海 魔芋裡面的黑色只是魔芋精粉中的雜質 魔芋皮 如果不是過期的話，可以把這個黑點當成是和魔芋豆腐一樣的原因形成的，其實魔芋豆腐裡面的黑點比魔芋素食還多。魔芋因品種不同其主要營養成分有所差異，如白魔芋中葡甘聚糖含量較高，幹物質中葡甘聚糖可達60 以上，而澱粉含量則較低 疣柄魔芋含葡甘聚糖量極低，...
裡面的交叉引用怎麼用，word裡面的交叉引用怎麼用
您建立的交叉引用僅可引用同一文件中的專案。若要交叉引用其他文件中的專案，首先要將文件合併到主控文件 中。交叉引用的專案 例如標題或書籤 必須已經存在。例如，必須在交叉引用某個書籤前將其插入文件。在文件中，鍵入交叉引用開頭的介紹文字。例如，鍵入 有關詳細資訊，請參閱 插入 選單中，指向 引用 再單擊 ...