Excel VBA質問箱 IV

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

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


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

13517 / 76732

←次へ　｜　前へ→


	【68718】Re:煩雑なデータ処理の解消方法は？？

UO3 - 11/4/9(土) 19:10 -


	引用なし

	パスワード

▼マエ/ケンさん：

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

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