[[20170208121043]]　『空白に上セルと同じ日付を挿入』（ミスター）　ページの最後に飛ぶ

『空白に上セルと同じ日付を挿入』（ミスター）

大量の日付を一挙に入力したいのですが、一つ一つ入力していなかったもので、
同じ日付の時は最初だけ入力されてて、下は日付が変わるまで空白セルになっています。

例

2016/9/25
空白
空白
空白
2016/9/28
空白
空白
2016/10/3
空白
空白
・・
・・・・

この「空白」セルに、先頭と同じ日付を入れたいのですが、多すぎるので
一挙に入れることはできますでしょうか。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

 データが A1 から入っているとして

 B1 : =A1
 B2 : =IF(A2="",B1,A2)

 B2 を下にずずっとフィルコピー（最後はどこで止めるのかは、最後の日付を何行コピーしたいのかわかりませんのでそちらで判断してください）

 B列を　A列に値コピー

 でもできますね。

（β） 2017/02/08(水) 15:35

 	A	B
 1　2016/9/25	
 2		
 3		
 4		
 5　2016/9/28	
 6		
 7		
 8　2016/10/3

 A列選択　→　F5キー押す　→　セル選択　→　空白セル選択　→　数式バーに =A1
 Ctrlキーを押しながらEnter
（bi） 2017/02/08(水) 15:36

Sub main()

    '対象列のどこかのセルを選択した状態で実行
    Dim c As Range, dt As Variant
    For Each c In Range(Cells(1, ActiveCell.Column), Cells(Rows.Count, ActiveCell.Column).End(xlUp))
        If c.Value = "" Then
            c.Value = dt
        Else
            dt = c.Value
        End If
    Next c
End Sub
（mm） 2017/02/08(水) 15:43

 マクロなら

 Sub Test()
    Dim r As Range

    For Each r In Columns("A").SpecialCells(xlCellTypeBlanks)
        r.Value = r.Offset(-1).Resize(1).Value
    Next

 End Sub

 でも最後の日付の下にはなにも生成されません。何行生成したいのかがわからないので。

（β） 2017/02/08(水) 16:01

 bi さんの操作をパクッテ。

 Sub Test2()

    Columns("A").SpecialCells(xlCellTypeBlanks).Formula = "=A1"

 End Sub

（β） 2017/02/08(水) 16:04

皆さん本当にありがとうございました！！

当方初心者なので、調べてみてもなかなか見つけられず、途方に暮れておりました。

まさかこんなに早く解決してくださるとは思わなかったので、驚いています。

（ミスター） 2017/02/09(木) 12:39

コメント返信：

[ 一覧(最新更新順) ]

[[20170208121043]] 『空白に上セルと同じ日付を挿入』（ミスター） ページの最後に飛ぶ

[[20170208121043]]　『空白に上セルと同じ日付を挿入』（ミスター）　ページの最後に飛ぶ