Excel VBA質問箱 IV

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

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


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

51612 / 76732

←次へ　｜　前へ→


	【29983】Re:データの小計をだしたい

kobasan - 05/10/17(月) 18:13 -


	引用なし

	パスワード

みなさん　今晩は。

前に作っていたのですが、タイミング遅すぎたのでそのままにしていました。
また、質問があったので、のせてみます。

別のやり方ですけど、試してみてください。

Sub main()
Dim u
　　u = Array(集計(1), 集計(2), 集計(3), 集計(4), 集計(5))
　　
　　Sheets("結果シート").Cells(14, 5).Resize(UBound(集計(1)) + 1, UBound(u) + 1).Value _
　　　　　　　　　　　　= Application.Transpose(u)
　　　　　　　　　　　　
End Sub

Private Function 集計(clmn As Long) As Variant
　　Dim rngA As Range
　　Dim Dic As Object
　　Dim r As Range
　
　　Set rngA = ActiveSheet.Range("A1", Range("A65536").End(xlUp))
　　Set Dic = CreateObject("Scripting.Dictionary")
　
　　For Each r In rngA.Cells
　　　　If clmn = 1 Then
　　　　　　Dic.Item(r.Text) = r.Text　 'A列について
　　　　Else
　　　　　　Dic.Item(r.Text) = Dic.Item(r.Text) + r.Offset(, clmn - 1).Value
　　　　End If
　　Next
　　集計 = Dic.items()
　　'
　　Set r = Nothing
　　Set Dic = Nothing
　　Set rngA = Nothing
End Function

0 hits

▼

【29829】データの小計をだしたい ゆり 05/10/14(金) 14:46