麻辣家族討論版版 » Excel程式區 » 關於字典加陣列欄數問題

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

[發問] 關於字典加陣列欄數問題

中學生 Rank: 2

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2025-6-21

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2020-8-16 12:03 | 顯示全部帖子

[發問] 關於字典加陣列欄數問題

本帖最後由軒云熊於 2020-8-16 12:17 編輯

Dim X(1 To 4, 1 To 2) 的 1 TO  4 ,1 To 2
X(B, 2) = X(B, 2) + A(I, 2)  的 2
         X(K, 1) = A(I, 1) 的 1~2
         X(K, 2) = A(I, 2)
[D1].Resize(K, 2) 的 2
請問如果要讓欄數改成動態該如何寫呢?

javascript:;

Sub 練習字典加陣列累加()
Dim B, K
Dim X(1 To 4, 1 To 2)
Set D = CreateObject("Scripting.Dictionary")
A = [A1:B1].Resize([B1].End(4).Row)
For I = 1 To UBound(A)
If D.Exists(A(I, 1)) Then
B = D(A(I, 1))
X(B, 2) = X(B, 2) + A(I, 2)
Else
K = K + 1
D(A(I, 1)) = K
X(K, 1) = A(I, 1)
X(K, 2) = A(I, 2)
End If
Next I
[D1].Resize(K, 2) = X
End Sub

複製代碼

練習.rar (11.33 KB)

樓主熱帖

收藏

中學生 Rank: 2

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2025-6-21

2^#

發表於 2020-8-16 12:24 | 顯示全部帖子

本帖最後由軒云熊於 2020-8-16 12:26 編輯

Dim X(1 To 4, 1 To 2) 的 1 TO 4 ,1 To 2 列數跟欄數還是說直接給一個較大的空間呢?

中學生 Rank: 2

帖子: 254
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2025-6-21

3^#

發表於 2020-8-16 17:56 | 顯示全部帖子

本帖最後由軒云熊於 2020-8-16 18:06 編輯

後來想到的辦法是這樣但迴圈變多了.... XD 要縮減迴圈對我來說實在太困難了....還有一大段距離...

Sub 練習字典加陣列累加()
Dim D As Object, B&, K&
Set D = CreateObject("Scripting.Dictionary")
A = Range(Cells(1, 1).End(4), Cells(1, 1).End(2))
T = Cells(1, 1).End(4).Row
L = Cells(1, 1).End(2).Column
ReDim X(1 To T, 1 To L)
For I = 1 To UBound(A)
E = A(I, 1)
If D.Exists(E) Then
B = D(E)
For F = 2 To UBound(X, 2)
If Not IsNumeric(A(I, F)) Then
X(B, F) = X(B, F)
Else
X(B, F) = X(B, F) + A(I, F)
End If
Next F
Else
K = K + 1
D(E) = K
For Y = 1 To UBound(X, 2)
X(K, Y) = A(I, Y)
Next Y
End If
Next I
Cells(1, L + 2).Resize(K, Y - 1) = ""
Cells(1, L + 2).Resize(K, Y - 1) = X
End Sub

複製代碼

javascript:;

練習.rar (12.91 KB)

靜思自在 : 自己害自己，莫過於亂發脾氣。

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