EXCEL・VBAで空欄の行に文字入力するには

ご教示お願いいたします。

エクセル2016にて、
・1行目にはタイトルが入っている。
・A列に日付が入っている（ファイルによって、10行～150行程度）
・B1には「種類」というタイトルが入っている。
・B2から下は空欄になっている。

B2～A列に日付が入っているB列の最後の行（ファイルによって、10行～150行程度）まで
「注文」という文字列を挿入したい。

この場合、どのようなマクロを書けば目的どおりに文字記入されますでしょうか？
どうぞよろしくお願いいたします。

No.2 ベストアンサー 回答者： tom04 回答日時： 2016/04/04 10:59

No.1です。

＞「注文」という文字列をC列に挿入する場合は・・・
について

Sample1の場合は
＞Range(Cells(2, "A"), Cells(lastRow, "A")).SpecialCells(xlCellTypeConstants).Offset(, 1) = "注文"
を
＞Range(Cells(2, "A"), Cells(lastRow, "A")).SpecialCells(xlCellTypeConstants).Offset(, 2) = "注文"
に

Sample2の場合は
＞Cells(i, "B") = "注文"
を
＞Cells(i, "C") = "注文"
に
変更してみてください。m(_ _)m

この回答へのお礼

tom04さま

何度もご丁寧に教えていただき、本当にありがとうございました！
思い通りの結果が得られ、感激しております♪

お礼日時：2016/04/05 22:28

No.1 回答者： tom04 回答日時： 2016/04/03 09:18

こんにちは！

A列に文字列は入らないという前提であれば・・・

Sub Sample1()
Dim lastRow As Long
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
If lastRow > 1 Then
Range(Cells(2, "A"), Cells(lastRow, "A")).SpecialCells(xlCellTypeConstants).Offset(, 1) = "注文"
End If
End Sub

といった感じではどうでしょうか？

※　A列に文字列が入っている場合、数値データの場合だけ「注文」としたい場合は

Sub Sample2()
Dim i As Long
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
If IsDate(Cells(i, "A")) Then
Cells(i, "B") = "注文"
End If
Next i
End Sub

でも大丈夫だと思います。m(_ _)m

この回答へのお礼

早々のご回答感謝いたします。
問題なく思い通りの結果になりました。

応用が利かず、追加で質問をさせていただきたいのですが、
A列に日付、B列に顧客名が入った様式に変更をしたく思っておりまして、
「注文」という文字列をC列に挿入する場合は、
どのように改変すればよいでしょうか？

何度もお手数をお掛けしまして申し訳ございませんが、
ご教示いただけましたら幸いです。

お礼日時：2016/04/04 04:19