Excel VBA質問箱 IV

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

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


13517 / 76732 ←次へ | 前へ→

【68718】Re:煩雑なデータ処理の解消方法は??
回答  UO3  - 11/4/9(土) 19:10 -

引用なし
パスワード
   ▼マエ/ケン さん:

基本的には2列固定のアップ済みのコードを列数変数化することになります。
その結果、ちょっとゴチャゴチャしますが。

Sub Sample2()
  Dim v As Variant
  Dim w() As Long
  Dim gCnt As Long 'グループ数
  Dim vTot() As Long
  Dim vWk() As Long
  Dim i As Long, x As Long, z As Long
  
  With Sheets("Sheet1")  '<==実際のシート名に
    x = .Cells(4, .Columns.Count).End(xlToLeft).Column
    gCnt = x - 4 - 1
    ReDim vTot(1 To gCnt)
    ReDim vWk(1 To gCnt)
    x = .Range("A" & .Rows.Count).End(xlUp).Row
    v = .Range("A5").Resize(x - 4, x).Value
    ReDim w(LBound(v, 1) To UBound(v, 1))
    For i = LBound(v, 1) To UBound(v, 1)
      For z = 1 To gCnt
        vWk(z) = v(i, 3) * v(i, z + 4)
        w(i) = w(i) + vWk(z)
        vTot(z) = vTot(z) + vWk(z)
      Next
    Next
    .Cells(4, x + 1).Value = "Total"
    .Cells(x + 1, 1).Value = "合計"
    For i = 1 To gCnt
      .Cells(x + 1, i + 4).Value = vTot(i)
    Next
    .Cells(5, x + 1).Resize(UBound(w)).Value = WorksheetFunction.Transpose(w)
  End With
    
End Sub
0 hits

【68707】煩雑なデータ処理の解消方法は?? マエ/ケン 11/4/9(土) 12:24 質問
【68710】Re:煩雑なデータ処理の解消方法は?? UO3 11/4/9(土) 13:15 回答
【68716】Re:煩雑なデータ処理の解消方法は?? マエ/ケン 11/4/9(土) 18:16 質問
【68718】Re:煩雑なデータ処理の解消方法は?? UO3 11/4/9(土) 19:10 回答
【68719】Re:煩雑なデータ処理の解消方法は?? マエ/ケン 11/4/9(土) 20:34 質問
【68720】Re:煩雑なデータ処理の解消方法は?? UO3 11/4/9(土) 21:50 発言
【68721】Re:煩雑なデータ処理の解消方法は?? UO3 11/4/10(日) 0:38 回答
【68725】Re:煩雑なデータ処理の解消方法は?? マエ/ケン 11/4/10(日) 20:24 質問
【68726】Re:煩雑なデータ処理の解消方法は?? UO3 11/4/10(日) 21:00 発言
【68730】Re:煩雑なデータ処理の解消方法は?? マエ/ケン 11/4/11(月) 11:26 質問
【68731】Re:煩雑なデータ処理の解消方法は?? UO3 11/4/11(月) 12:08 回答
【68727】Re:煩雑なデータ処理の解消方法は?? UO3 11/4/10(日) 21:02 発言
【68744】Re:煩雑なデータ処理の解消方法は?? マエ/ケン 11/4/13(水) 15:17 お礼
【68711】Re:煩雑なデータ処理の解消方法は?? だるま 11/4/9(土) 14:27 回答
【68717】Re:煩雑なデータ処理の解消方法は?? マエ/ケン 11/4/9(土) 18:24 質問
【68722】Re:煩雑なデータ処理の解消方法は?? kanabun 11/4/10(日) 6:41 発言

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