|
よろしくお願いいたします。
下記のようなワークシートで、(A列に自動で数値を入力したい)
A列は空欄です。
B列には8桁の日付があらかじめ入力されています。
A列 B列
61 20060202
61 20050701
62 20060602
63 20070601
条件は B列の数値で決まります。
20050401 から 20060331 までなら A列に 61
20060401 から 20070331 までなら A列に 62
20070401 から 20080331 までなら A列に 63
20080401 から 20090331 までなら A列に 64
A列の最初にセルを置いて、
Do Until ActiveCell.Offset(1,1).Value = ""
With
ここに、条件分岐の記述をして自動で入力しようと思ったのですが、
記述がよくわかりません。
.Offset(1,0).select
End Wth
Loop
考え方は、Do Loopで順番に下へ移動しながら数値を入力すれば
よいかと思いますが、他によい方法があればあわせて教えてください。
よろしくお願いいたします。
|
|