Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

795 / 76735

←次へ　｜　前へ→


	【81603】Re:重複Key毎の合計を求める

マナ - 21/1/21(木) 18:42 -


	引用なし

	パスワード

▼assya さん：

γさんの、ここを含む掲示板での回答を見て
わたしも使えるようになった方法です。

空の２次元配列を用意して、
各要素に加算を繰り返すことで集計します。
dictionaryには、配列のindexを登録していす。

Sub test()
　　Dim dic As Object
　　Dim w()
　　Dim r As Long, c As Long
　　Dim v
　　Dim s As String
　　Dim n As Long
　　
　　Set dic = CreateObject("scripting.dictionary")
　　
　　v = Range("A1:G9").Value
　　
　　ReDim w(1 To UBound(v, 1), 1 To UBound(v, 2))
　　
　　For r = 1 To UBound(v, 1)
　　　　s = v(r, 1)
　　　　If Not dic.exists(s) Then
　　　　　　dic(s) = dic.Count + 1
　　　　　　w(dic(s), 1) = s
　　　　End If
　　　　n = dic(s)
　　　　For c = 2 To UBound(v, 2)
　　　　　　w(n, c) = w(n, c) + v(r, c)　'★ここで加算
　　　　Next
　　Next
　　
　　Range("A21").Resize(dic.Count, UBound(w, 2)).Value = w
　　
End Sub

1 hits

▼

【81600】重複Key毎の合計を求める assya 21/1/20(水) 21:49