ＥｘｃｅｌＶＢＡを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。

質問

以下のようなプログラムをＶＢＡで作成したいと考えています。

Ａ１のセルに値があれば、その値をＢ１に返す。
次にＡ２のセルに値があれば、その値をＢ２に返す。
Ａ行に値がある一番下のセルまで同じようなことをさせたいと考えています。

ＶＢＡは初心者です。
どなかた宜しくお願い致します。

回答No.5

hana-hana3 · ベストアンサー

＃２さんと似たものですが・・・・参考にしてください。

Sub test001()
Dim i As Long
i = 1
Do While Cells(i, 1) <> ""
Cells(i, 2) = Cells(i, 1)
i = i + 1
Loop
End Sub

お礼

回答ありがとうございました。

Do While Cells(i, 1) <> ""
↑
ここがわかならかったので、質問させていただきました。
やってみたところ、思い通りの動作をすることができました。
ありがとうございました。

回答No.7

hana-hana3

＞ここがわかならかったので、質問させていただきました。

Do Loop 文と呼ばれる繰返し処理のための構文です。

Do
処理
Loop
の用に使いますが、このままでは無限に処理が実行されてしまい、無限ループに陥る事になります。
そのため、ループさせるための条件を付加する事で条件が満たされる間だけループ処理を行う事ができます。

Do While Cells(i, 1) <> ""
は、Cells(i, 1)が空白以外なら処理を行う　と言う条件です。

http://www2s.biglobe.ne.jp/~iryo/vba/VBA07.html

回答No.6

imogasi

Sub test01()
d = Range("A65536").End(xlUp).Row
For i = 1 To d
If Cells(i, "A") <> "" Then
Cells(i, "B") = Cells(i, "A")
End If
Next i
End Sub
既回答とやっていることは同じでも、少し違うのですね。
上記は５人答えているので、既に同じものはあるかと思ったが無かったので挙げる。

お礼

回答ありがとうございました。

d = Range("A65536").End(xlUp).Row
For i = 1 To d
If Cells(i, "A") <> "" Then

↑

このやり方もあるのですね。
やってみたところ、思い通りの動作をすることができました。
ありがとうございました。

回答No.4

loop_dog

#3です。
（コピペ間違えた）

'100行分
For i = 1 To 100

If ActiveSheet.Cells(i, 1).Value <> "" Then
ActiveSheet.Cells(i, 2).Value = ActiveSheet.Cells(i, 1).Value
End If

Next

回答No.3

loop_dog

'100行分
for i=1 to 100

if range(1,i).value<>"" then
range(2,i).value=range(1,i).value
end if

end if

補足

回答ありがとうございます。
１００行分ですが、Ａ行の表は逐次変化していくので、
最終行まで、という指定で考えています。
説明不足で申し訳ありませんでした。

回答No.2

dsuekichi

> ＶＢＡは初心者です。

初心者なのはしょうがないとしても、
「初心者なりに」自分で考えたり、調べたりしてますよね？
それを提示してください。

ちなみに、
-----------------------------------------------------
Sub copyAtoB()
Dim R As Range
Set R = ThisWorkbook.ActiveSheet.Cells(1, 1)
Do While R.Value <> ""
R.Offset(0, 1) = R.Value
Set R = R.Offset(1, 0)
Loop
End Sub
-----------------------------------------------------
こんなコードで（とりあえず）できますが・・・
＃解説はしません。内容は「自分で調べて、考えて」見てください。

補足

回答ありがとうございます。
もちろんいろいろしらべたのですが、そこは載せていませんでした。
もうしわけありません。

回答No.1

NORI-KEN

こんにちは。
ＶＢＡでなくとも　Ｂ列に　=A1のような式を設定すれば良い
と思います。
B1で　=A1 と式を設定したら　後はＢ列で　使うところまで
コピーしていけば全体に式が設定できます。

お礼

回答ありがとうございます。
そうですね。その通りですね。