エクセルおしえて!データ中ところどころにある空白セルをひとつ前のセルの値で埋める方法をおしえてください。

Excel64,663閲覧xmlns="http://www.w3.org/2000/svg">100

1人が共感しています

ベストアンサー

22
画像

22人がナイス!しています

ThanksImg質問者からのお礼コメント

できました! Ctrl+Enterに感動しました みなさまありがとうございましたm(_ _)m

お礼日時:2010/12/23 20:38

その他の回答(2件)

0

マクロ案です。 「0」は空白と判断しませんが、良いですか? もし、不都合なら「補足」願います。。 標準モジュールに張り付けて、実行してみて。 Sub ktest() Dim c As Range Dim myRange As Range Set myRange = Range(Range("B1"), Cells(Rows.Count, 2).End(xlUp).Offset(, 1)) For Each c In myRange If c.Value = "" Then c.Value = c.Offset(-1).Value End If Next c End Sub

0

関数のif文でいけるじゃないですか 例) =if(C2="",C1,"") もし、C2が空白ならC1の値を貼り付ける で他のセルは一括コピーすればいいじゃないですか