Excel VBA質問箱 IV

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

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


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

23438 / 76732

←次へ　｜　前へ→


	【58660】Re:同じ文字列の検索

板さん

- 08/11/3(月) 18:14 -


	引用なし

	パスワード

▼kanabun さん：
>さて、話が「グループ別集計作業」に戻りますが、
>グループ別に集計するには Dictioanryオブジェクト
>というものを使うといいです。
>
>いま、以下のようなテーブルがあったとします。
>'---------------
>　A　　　　　B
>'コード　　　数量
>'123　　　　　10
>'456　　　　　10
>'123　　　　　10
>'789　　　　　10
>'123　　　　　10
>
>Sub Try_Dic()
>　　Dim ColA As Range
>　　Dim v
>　　Dim ss As String
>　　Dim i As Long
>　　Dim dic As Object
>　　
>　　Set dic = CreateObject("Scripting.Dictionary")
>　　Set ColA = Range("A2", Cells(Rows.Count, 1).End(xlUp))
>　　v = ColA.Resize(, 2).Value　'A,B列のデータ
>　　For i = 1 To UBound(v)
>　　　　ss = v(i, 1)　 '同じKey(コード)に Item(数量)を加えていく
>　　　　dic(ss) = dic(ss) + v(i, 2)
>　　Next
>
>　　'集計結果を新しいシートに書き出す
>　　With Worksheets.Add(After:=ActiveSheet)
>　　　　.Range("A2").Resize(dic.Count, 2).Value = _
>　　　　　　Application.Transpose(Array(dic.Keys, dic.Items))
>　　End With
>　
>End Sub
>
>' ------------　結果はこうなります
>'123　　30
>'456　　10
>'789　　10
>
>
>キー(グループ名)がはじめから分かっているばあい、
>キー別集計作業は上のように Dictionaryを使うと簡単にできます。

ありがとうございました。
あまりにレベルが高すぎて（質問した私のレベルが低いのがいけないのですが）
もう一度じっくり考え直してひとつずつ質問していきたいと思います

0 hits

▼

【58651】同じ文字列の検索 板さん 08/11/2(日) 23:32