Excelで関数でセルに記入したい

いつもお世話になります。
よろしくお願いいたします。

Excelで日付が入っていないセルに日付を入れたいと考えています。
（文章でうまく説明できないので、添付の画像をご用意しました）

これがデイリーで数年分あるため、関数で効率的に入れていければと思い
いろいろと調べているのですが、いい手を思いつきません。お手上げです・・・
いいやり方があれば教えていただけると嬉しいです。
どうぞよろしくお願いいたします。

No.2 ベストアンサー 回答者： tom04 回答日時： 2019/06/05 11:09

こんにちは！

既存のA列にそのまま日付を表示しなければならないのですね。
手っ取り早く、VBAでの一例です。

Sub Sample1()
　Dim i As Long, myDate
　　For i = 1 To Cells(Rows.Count, "B").End(xlUp).Row
　　　If Cells(i, "A") <> "" Then
　　　　myDate = Cells(i, "A")
　　　Else
　　　　Cells(i, "A") = myDate
　　　End If
　　Next i
End Sub

こんな感じではどうでしょうか？m(_ _)m

この回答へのお礼

ご提案ありがとうございました。貼り付けてさくっと入力できました。助かりました！

お礼日時：2019/06/05 11:36

No.1 回答者： fujillin 回答日時： 2019/06/05 10:53

こんにちは

こんな手順ではいかがでしょうか？

1）現状のA列とB列の間に列を挿入（以降B列と呼びます）
2）（新しい）B列のB2セルに以下の式を入力
　　=IF(A2,A2,B1)
3）B2セルのフィルハンドル（右下）をダブルクリック
　　（下方に自動コピーされます）
4）そのままの選択範囲で、セルの書式を日付に設定
5）そのままの範囲を、コピー、値をペーストで値に変換
6）A列を削除

※ 上記の手順であれば、マクロの記録を取れば、そのままでもかなり使えると思います。
（最大行数がシートによって異なる場合は、そこが違ってしまうかも…）

この回答へのお礼

今回は先にご提案頂いたtom04様をベストアンサーとさせていただきましたが、fujilin様の手順も試させていただきました。ifの使い方に目から鱗でした。ありがとうございました。

お礼日時：2019/06/05 11:35