返回列表下一主題上一主題發帖

[發問] 請問VBA Excel 陣列的問題?

pipi1968

中學生 Rank: 2

帖子: 9
主題: 2
精華: 0
積分: 50
點名: 0
作業系統: win7
軟體版本: sp1
閱讀權限: 20
註冊時間: 2015-9-21
最後登錄: 2020-7-23

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2016-3-15 21:03 | 顯示全部帖子

[發問] 請問VBA Excel 陣列的問題?

本帖最後由 pipi1968 於 2016-3-15 21:04 編輯

我有個二維陣列如下:
"AA", "yes", "Cr", 111, 222
"BB", "No", "Dr" , 333, 444
"CC", "yes", "Bl", 111, 222
"AA", "yes", "Cr", 222, 333
"CC", "yes", "Bl", 333, 555
"CC", "yes", "Bl", 222, 111
"BB", "No", "Dr" , 444, 222
....

原則上"AA", 會搭配"yes", "Cr"；"BB",會搭配"No", "Dr"；"CC", 會搭配"yes", "Bl"
如果要根據第1欄("AA"、"BB"、"CC"),帶出第2欄("yes" or "No")、帶出第３欄("Cr"、 "Dr"、 "Bl")，並加總第4欄、第5欄
產生新陣列如下
"AA", "yes", "Cr", 333, 555
"BB", "No", "Dr" , 777, 666
"CC", "yes", "Bl" , 777 888
....

請問VBA Excel 該如何寫?
感謝大家的幫忙

pipi1968

中學生 Rank: 2

帖子: 9
主題: 2
精華: 0
積分: 50
點名: 0
作業系統: win7
軟體版本: sp1
閱讀權限: 20
註冊時間: 2015-9-21
最後登錄: 2020-7-23

2^#

發表於 2016-3-16 00:58 | 顯示全部帖子

本帖最後由 pipi1968 於 2016-3-16 00:59 編輯

謝謝指教
但套用到我的資料卻出現 "陣列索引超出範圍"的訊息
If Not d.exists(ar(i)(0)) Then
不知問題那裡有問題
煩請再指導
謝謝

PS:附上我的測試檔案(已寫好Sheet1 資料讀進 ar的程式碼)
我測試的檔案, 好像不支援ar(0)(0)這種寫法
但如果只執行你的程式碼，又可以執行