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

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

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

回答No.3

mu2011

よく分からない文章とコードですね。
取り敢えず、そのセル順でセルが空欄ならば「○」を入力した例です。

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

補足

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

回答No.2

mt2008

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

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

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

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

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

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