エクセルのマクロ 並んだ数字の幾つかを抜き出してその合計を計算させたいのですが・・

質問

エクセルのマクロ（ＶＢＡ）について、教えてください。
セルのＡ１からＡ２・・・Ａ１０００までに「01，03，06，08，20，」のように５つの数字がカンマで区切られて入力されています。
1.この５つの数字をｂ.ｃ.ｄ.ｅ.ｆ.の１から1000のそれぞれのセルに配置するマクロ
2.この５つの数字の数字の合計をｂ1から1000のセルに表示させるマクロは難しいでしょうか？
ＭＩＤ関数をひとつづつのセルに入れていたのですが、マクロでできれば効率が良いと思い手引書等で考えたのですがよく分からないのです。

回答No.3

notepad · ベストアンサー

その程度であれば敢えてマクロにする必要が無ければエクセルの機能でできます。
1.メニューバーの「データ」> 「区切り位置」で区切り文字を「,」にしてください。
2.1の結果がA列からE列に入るのでF列にA列からE列の合計を、関数で表示すればOK。

回答No.2

hotosys

Sub sample1()
Dim r As Integer
For r = 2 To 1000
Range(Cells(r, 2), Cells(r, 6)) = Split(Cells(r, 1), ",")
'Range(Cells(r, 2), Cells(r, 6)) = Split(Cells(r, 1), "，") '質問の区切りカンマが全角なのでその場合はこっち
Next
End Sub

Sub sample2()
Dim d() As String
Dim r As Integer
Dim i As Integer
For r = 2 To 1000
d = Split(Cells(r, 1), ",")
'd = Split(Cells(r, 1), "，") '質問の区切りカンマが全角なのでその場合はこっち
Cells(r, 2) = 0
For i = 0 To UBound(d) 'または For i = 0 To 4
Cells(r, 2) = Cells(r, 2) + Val(d(i))
Next
Next
End Sub

回答No.1

sayop

＞1.この５つの数字をｂ.ｃ.ｄ.ｅ.ｆ.の１から1000のそれぞれのセルに配置

b列＝03

＞2.この５つの数字の数字の合計をｂ1から1000のセルに表示

b列＝合計

b列を書き換えるのですか？

補足

上手く説明できず申し訳ありません。
1.と2.は、別の質問とご理解ください。
1.ａ1［01.03.06.08.20］ ｂ1［01］ｃ１［03］ｄ1［06］ｅ1［08］
　 　　　　　　　　　　ｆ1［20］
　ａ2［04.08.15.21.36］ ｂ2［04］ｃ2［08］ｄ2［15］ｅ2［21］
　 　　　　　　　　　　ｆ2［36］ と表示したいものと、
2.ａ1［01.03.06.08.20］ ｂ1［38］
　ａ2［04.08.15.21.36］ ｂ2［84］ と合計のみ表示したい場合です。