Excel VBA質問箱 IV

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

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


51618 / 76738 ←次へ | 前へ→

【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 質問
【29833】Re:データの小計をだしたい Statis 05/10/14(金) 15:10 発言
【29835】Re:データの小計をだしたい ゆり 05/10/14(金) 15:25 お礼
【29843】Re:データの小計をだしたい Statis 05/10/14(金) 16:39 回答
【29847】Re:データの小計をだしたい ゆり 05/10/14(金) 16:58 お礼
【29963】Re:データの小計をだしたい ゆり 05/10/17(月) 16:26 質問
【29966】Re:データの小計をだしたい とまと 05/10/17(月) 16:44 発言
【29977】Re:データの小計をだしたい ゆり 05/10/17(月) 17:14 質問
【29979】Re:データの小計をだしたい とまと 05/10/17(月) 17:40 発言
【29983】Re:データの小計をだしたい kobasan 05/10/17(月) 18:13 発言
【30005】Re:データの小計をだしたい ゆり 05/10/18(火) 9:55 質問
【30042】Re:データの小計をだしたい kobasan 05/10/18(火) 19:01 回答
【30076】Re:データの小計をだしたい kobasan 05/10/19(水) 7:22 発言
【30082】Re:データの小計をだしたい ゆり 05/10/19(水) 10:41 お礼

51618 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free