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

解決済

質問者：smorgas030
質問日時：2007/08/10 13:42
回答数：7件

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

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

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

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (7件)

ベストアンサー優先
最新から表示
回答順に表示

No.5ベストアンサー

回答者： hana-hana3
回答日時：2007/08/10 14:11

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

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

- 21
- 件

通報する

この回答へのお礼

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

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

通報する

お礼日時：2007/08/10 14:34

No.7

回答者： hana-hana3
回答日時：2007/08/10 15:21

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

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

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

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

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

- 5
- 件

通報する

No.6

回答者： imogasi
回答日時：2007/08/10 14:32

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
既回答とやっていることは同じでも、少し違うのですね。
上記は５人答えているので、既に同じものはあるかと思ったが無かったので挙げる。

- 4
- 件

通報する

この回答へのお礼

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

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

↑

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

通報する

お礼日時：2007/08/10 14:56

No.4

回答者： loop_dog
回答日時：2007/08/10 14:06

#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

- 0
- 件

通報する

No.3

回答者： loop_dog
回答日時：2007/08/10 14:05

'100行分

for i=1 to 100

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

end if

この回答への補足

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

補足日時：2007/08/10 14:30

通報する

- 0
- 件

通報する

No.2

回答者： dsuekichi
回答日時：2007/08/10 14:01

> ＶＢＡは初心者です。

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

ちなみに、
-----------------------------------------------------
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
-----------------------------------------------------
こんなコードで（とりあえず）できますが・・・
＃解説はしません。内容は「自分で調べて、考えて」見てください。