1樓：延時神器愛力久
字典keys是一個陣列，直接用**text=join(d.keys,vbcrlf)關於此例中join函式用法：返回一個包含子字串陣列中的指定數量的字串。
這與 split方法的作用完全相同語法：join(list[,delimiter]) list, 必需的引數。要加入包含屬於子陣列。
delimiter, 一個可選的引數。字元就是返回的字串，用作分隔符。預設的分隔符是空格。
2樓：慶年工坊
sub s()
dim r%, s$, i%, j%, arr, brr%(9)r = range("a65536").end(xlup).rowarr = [a1].resize(r)
for i = 1 to r
brr(arr(i, 1)) = brr(arr(i, 1)) + 1
next
for j = 0 to 9
if brr(j) > 1 then s = s & " " & jnext
[d9] = replace(trim(s), " ", ",")end sub
3樓：匿名使用者
dim test as new scripting.dictionary
dim b(1) as integer
b(0) = 100
b(1) = 20
test.add "a1", b
msgbox (test.item("a1")(1)) 『顯示20沒有錯
test.item("a1")(1) = 444msgbox (test.item("a1")(1)) '期望是444，但實際顯示的還
定義字典陣列（vba）
4樓：匿名使用者
利用excel vba如何將一列資料中不重複的資料讀取到陣列中
5樓：匿名使用者
'利用字典去重,下面是示例**,去除第一列的重複項sub test() '利用字典去重,字典的特性是key值不能重複
dim dic, arr
dim i as integer, r as integer
dim str as string
r = sheet1.range("a65536").end(xlup).row
if r = 1 then exit sub '如果第一列沒有資料那麼退出程式
set dic = createobject("scripting.dictionary") '建立字典物件
for i = 1 to r '將第一列資料新增到字典的key值中
dic(cstr(cells(i, 1))) = ""
next
arr = dic.keys '返回字典key的陣列
set dic = nothing '銷燬物件
str = join(arr, ",") '將陣列中的內容顯示為一字串
msgbox str
end sub
vba 字典 取出單個item值? 5
vb程式，簡單陣列
vb一個包含10個陣列元素的陣列a,該陣列分別賦值2.4.6.8........20輸出
有一列由陣列成的陣列，它們依次是（1，1，
第10組數的第一個數是 10 第10組數的第二個數是 102 100 第10組數的第四個數是 104 10000 所以第10組數是 10，100，10000 故答案為 10，100，10000 一列由三個陣列成的陣列,依次是1.5.10 2.10.20 3.15.30.第6組的三個數的和是？按照這個...
陣列是由三部分組成,有一列陣列，每組由三個陣列成它們依次是1，3，6，2，6，12，3，9，18，請問第20個
所謂陣列，就是相同資料型別的元素按一定順序排列的集合，就是把有限個型別相同的變數用一個名字命名，然後用編號區分他們的變數的集合，這個名字稱為陣列名，編號稱為下標。組成陣列的各個變數稱為陣列的分量，也稱為陣列的元素，有時也稱為下標變數。陣列是在程式設計中，為了處理方便，把具有相同型別的若干變數按有序的...
C b s定義不確定大小的一維陣列
那就不要用陣列。用arraylist或list。這種資料結構容量是不確定的。等你構造好之後有必要的話用很方便就能轉換為陣列。arr new a b object obj 這樣就可以得到一個陣列了。string fn 在用的時間，可以。fn new string n n是自定義的整數。嗯。我支援直接用...