VBAでの入力

A1～D5に自動的に順番にデータを入力したいです。

A1→B1→C1→D1→A2→B2→C2→D2→A3・・・

といった感じです。

If range("A1").Value = "" Then
　range("A1").Value=○
ElseIf range("A1").Value <> "" Then
　range("B2").Value = ○○
・・・

のようにたくさんIf文を書くしかないのでしょうか。

No.4 回答者： mt2008 回答日時： 2013/06/12 19:10

> 別のシートからセルをセルをコピーして順番に入れていくのですが、

> 指定された数だけしか入力できないのです。
> 例）　５の場合、A2まで　以降ブランク
> 　　１２の場合、B3まで　以降ブランク

ますます何がしたいのか解りません。
説明が出来ないのなら、せめて例をもっと具体的かつ詳細に提示してください。
元データが別シートのどこにどう有って、元シートのデータをどういう順番でどこに貼り付けたいと言う感じで……。

No.3 回答者： mu2011 回答日時： 2013/06/12 18:08

よく分からない文章とコードですね。

取り敢えず、そのセル順でセルが空欄ならば「○」を入力した例です。

Sub aaa()
Dim r As Range
For Each r In Range("a1:d5")
If r = "" Then r = "○"
Next
End Sub

この回答への補足

すみません、説明足らずでした。
別のシートからセルをセルをコピーして順番に入れていくのですが、
指定された数だけしか入力できないのです。
例）　５の場合、A2まで　以降ブランク
　　１２の場合、B3まで　以降ブランク

補足日時：2013/06/12 18:37

No.2 回答者： mt2008 回答日時： 2013/06/12 17:49

何がしたいのか今一良く解っていませんが、こんな感じですか？

Sub Sample()
　　nCount = 1
　　For nRow = 1 To 5
　　　　For nCol = 1 To 4
　　　　　　Cells(nRow, nCol) = String(nCount, "○")
　　　　　　nCount = nCount + 1
　　　　Next nCol
　　Next nRow
End Sub

No.1 回答者： LHS07 回答日時： 2013/06/12 17:14

ツール

　オプション
　　編集
　　　入力後にセルを移動する
　　　　右にする

４列Ａ1からＤ10まで選択すると

A1→B1→C1→D1→A2→B2→C2→D2→A3・・・

の順に入力できるはずです。