エクセルＶＢＡの記述について

質問

ＯＳはＷｉｎ９８、エクセル２０００です。
次の処理をＶＢＡで処理したいのですがうまく作動しま
せん。
ご教授願います。
セルＡ１から下に向かって１から２０までランダムに数
値が入ってます。
同じ数値は無く、数値も３行（セルＡ３）で終わる場合
も有ります。
この場合セルＣ１から下に向かって順にＡ１＆Ａ２、Ａ
１＆Ａ３と記述したいのですが・・・
例）
Ａ１に５、Ａ２に７、Ａ３に１５、Ａ４に１０でしたら
Ｃ１に５７、Ｃ２に５１５、Ｃ３に５１０、Ｃ４に７１５
Ｃ５に７１０、以下・・・と記述
よろしくお願いします。m(_ _)m

回答No.5

jukate · ベストアンサー

Sub test2()
Dim m, n, k, h, a, b As Integer
Dim txt As String
For k = 1 To 30
If Sheet1.Cells(k, 1) = "" Then
h = k - 1
GoTo line1
End If
Next k
line1:
For n = 1 To h - 3
For m = 1 To 3
Sheet1.Cells(m + 3 * n - 3, 3) = Sheet1.Cells(n, 1) & Sheet1.Cells(m + n, 1)
Next m
Next n
End Sub
'ちょっと失敗しました。希望通りか知りませんが。
'最後のセルは空白としてそこから-1して後はエラーでないようにしてください。

お礼

何回もご親切にありがとうございました。
早速コピーさせてもらいました。
発想が大きなヒントになりました。
本当にありがとうございました。

回答No.4

jukate

Sub test2()
Dim m, n, k, h As Integer
For k = 1 To 10
If Sheet1.Cells(k, 1) = "" Then
h = k - 1 '←ここら辺りは適当に
GoTo line1
End If
Next k
line1:
For n = 1 To 10
For m = 1 To 3
Sheet1.Cells(m + 3 * n - 3, 3) = Sheet1.Cells(n, 1) & Sheet1.Cells(m + n, 1)
Next m
Next n
n = h
For m = 1 To 3
Sheet1.Cells(m + 3 * n - 3, 3) = Sheet1.Cells(n, 1) '←ここら辺りは適当に(2)
Next m
End Sub
'正直どうしたいのかはわかりません。
'←ここら辺りは適当に(2)を『""』とかでしょうか？

回答No.3

jukate

Sub test2()
Dim m, n, k As Integer
For n = 1 To 10
For m = 1 To 3
Sheet1.Cells(m + 3 * n - 3, 3) = Sheet1.Cells(n, 1) & Sheet1.Cells(m + n, 1)
Next m
Next n
End Sub

補足

早速ありがとうございました。うまくいきます。
発想がすぐ浮かんでうらやましいかぎりです。
質問の質問ですみませんがセルＡ列の最後の数値には
＆が不要の場合はどうなるでしょうか。
もしよろしかったら教えて下さい。

回答No.2

nihonjinn

'同じ数値は無く、数値も３行（セルＡ３）で終わる場合
も有ります。
'ということなので
Sub test2()
Gyou = Cells(21, 1).End(xlUp).Row
For I = 1 To Gyou - 1
Cells(I, 3) = Cells(1, 1) & Cells(I + 1, 1)
Next
End Sub

補足

早速回答ありがとうございます。
書き方が悪くてすみません。
補足させていただきますと、セルＡ１からの記述が終わっ
たら次はセルＡ２＆セルＡ３、セルＡ２＆セルＡ４という
具合に順に降りていきます。
ご回答ですとセルＡ２からの＆で終わってしまうので・・
よろしくお願いします。(>_<)

回答No.1

nihonjinn

Sub test()
For I = 1 To 20
Cells(I, 3) = Cells(1, 1) & Cells(I + 1, 1)
Next
End Sub

'でどうですか。

お礼

お手数をおかけしました。
なんとかできそうです。
ご親切にありがとうございました。
まだＶＢＡは初心者でデバックの連続です。
またお願いします。

補足

早速に２回答もすみません。
ＮＯ．２にも記述しましたが、セルＡ１に５、Ａ２に７
Ａ３に３、Ａ４に１０ですと、Ｃ１に５７以下５３、５１０、７３、７１０、３１０で終了となります。
最後の数値に＆は必要ありません（この場合は１０）
よろしくお願いします。