エクセル もし、セルが空欄なら、その上のセルの値を入力する

質問

エクセル２００２を使用しています。

例えば、Ａ列に順に数値が入っているのですが、ところどころ空欄です。
＜こんな感じです。＞
１２
１５
２２

３３
３４

５５
＜ここまで＞

数値は、連番ではありません。不規則です。約３００行あります。
本当は、空欄の場所は一つ上のセル数値が入るのです。（連続して空欄になっているところも、一つ上の数値と同じ値が入るのです。）
＜上の例を当てはめると＞
１２
１５
２２
２２　←
３３
３４
３４　←
３４　←
５５
＜ここまで＞

こんな感じにしたいのです。
関数などで一つのセルに入力して、あとはフィルドラッグでコピーするなんていう便利な方法はありませんか？
すでに入力している数値が消えないようにしたいのです。

よろしくお願いいたします。

回答No.6

mshr1962 · ベストアンサー

とりあえず数値の範囲を選択
F5キーを押してセル選択で定数を選択（文字を除くなら数値のみチェック）
これで空白のセルが除外されます。
ここでコピーして張り付ければいいかと．．．

補足

関数を使わない方法をご提示していただきありがとうございました。

しかし、順に作業したのですが、
＞これで空白のセルが除外されます。
ここまでは、できました。

＞ここでコピーして張り付ければいいかと．．．
この部分がわかりません。

空欄になっているセルは不規則ですので、手作業で作業することになるのでしょうか？

それとも、簡単にコピーできるのでしょうか？

Ｆ５キーの使い方は知らなかったので、今後活用したいと思います。

ありがとうございました。
できましたら、再度解説をいただけると嬉しいです。よろしくお願いいたします。

回答No.13

imogasi

まとめ
（１）質問者の言うように、A列！で式を入れて自動複写のようなことは、絶対できません。
一回限りなら下記でできます（B)。
（２）例えばB列を一旦使い、
B1に
=IF(A1<>"",A1,MAX($A$1:A1<>"",$A$1:A1,0))
と入れてSHIFT+CTRL+ENTERを押す。
そしてA列に値だけ複写する。それならできますが、A列を変えると
連動性はありません。
（３）VBAなら数行でできる。ロジックも簡単で、上行から順に考えて空白なら、上の行の値をとる。
連動性はない。その都度再実行が必要。
（２）のデータ例
1 1
2 2
3 3
3
3
3
6 6
6
8 8
8
2 2
（１）で書いた方法。自動ではないが
F1:F131
-
2
-
-
5
-
6
-
-
-
2
-
ーは空白セル
F2に=F1
このセルをCTRL+Cでコピー
空白セルの最初F4をクリック
CTRLを押しながら、空白セルの　F５，７，９，１０、１１，１３セルをクリック
貼り付け
結果
1
1
2
2
2
5
5
6
6
6
6
2
2
となります。

お礼

仮にＢ列を使うということが便利だとわかりました。

ありがとうございました。

回答No.12

ham_kamo

No.8です。

F列を処理したいのであれば、
　　For Each R In Range("A1", Range("A65536").End(xlUp))
の行を、
　　For Each R In Range("F1", Range("F65536").End(xlUp))
と２箇所修正してください。

お礼

すみません。

大変助かりました。

今、マクロの初心者向け参考書を読み始めたところです。

勉強になりました。

ありがとうございました．

回答No.11

Ce_faci

NO1です
ごめんなさい
A1のところをB1に変えてください

お礼

うまくできました。

ご親切にありがとうございました。

回答No.10

gyazae

ANo.7の者です。
私の環境（Excel2003）ではうまくいったのですが・・・
うまく再計算されていないのでしょうか。
B 列の途中に空欄があると、そのような状況になってしまうでしょうが。

ANo.6の方法が一番手っ取り早いかもしれませんね。

１．A4 に =A3 と入力
２．A4 をコピー
３．A 列を選択して、F5 -> セル選択 -> 空白セル -> OK
４．貼り付け

お礼

大変すみませんでした。

私の入力ミスです。

教えていただいたB1の箇所を誤ってA1にしてしまっていました。

教えていただいた式は問題なく作動しました。
大変失礼しました。

また、Ｆ５キーのやり方についても、
４．貼り付け
と書いていただいたので、恐る恐る貼り付けアイコンをポチッと押したら、すべてうまくいきました。すごい機能ですね。

ありがとうございました。

回答No.9

MIKAN01234

すいません。( ＞ ＜ ）
ANo.5です。
間違ったまま投稿してしまいました。
=IF(A1="",#REF!,A1)ではありません。
1行目は
=A1
で、2行目に
=IF(A2="",A1,A2)
を入れてあとは、これをコピペです・・・
これを1行目にコピーすると上の=IF(A1="",#REF!,A1)となってしまうので、それに気が付かずそのまま投稿してしまいました。
すいません。
#REF!はエラーですので・・・本当にすいませんでした。

ようするにANo.3さんと同じです。

でも、これだと2行入力しないのが続くと・・・という問題があるので
=IF(A2="",B1,A2)
そ、参照するのを同じ列の上の行の数字にしました。
これで、いくら入力しない行があっても大丈夫です。
ｍ(＿ ＿)ｍ

お礼

できました。

なるほどーと思いました。
ありがとうございました。

また、別の回答者の皆様にこの欄を借りてお詫びいたします。
後から、補足欄で2行入力しないのが続くとできませんと訴えましたが、Ｂ列の一つ上を参照している式に対し、私が入力ミスでＡ列の一つ上を参照するようにしてしまいました。

すみませんでした。

回答No.8

ham_kamo

マクロを作ってみました。
シートタブを右クリックして「コードの表示」を選択するとVBAの画面が出るので、右の画面に以下のマクロをコピーして貼り付け、F5キーを押して実行してください。

Sub FillBlank()
　　Dim R As Range
　　For Each R In Range("A1", Range("A65536").End(xlUp))
　　　　If R.Value = "" Then R.Value = R.Offset(-1, 0).Value
　　Next
End Sub

お礼

恐れ入ります。マクロまで作っていただいて。

ありがとうございます。
大変参考になりました。
勉強させていただきました。

補足

貼り付けましたら出来ます。さすがマクロですね。

説明を省いた私のミスなのてすが、実際に作業する列は、Ｆ3からF322までです。

いただいたコードの
For Each R In Range("A1", Range("A65536").End(xlUp))
のＡ１を勝手にＦ３にして貼り付けました。（勝手ですみません）
すると、Ａ列からＦ列まですべて同じように空欄がある場合は上の行をコピーするようになってしまいました。

ＡからＥ列まではコピーしないようにするには、どのようにするものでしょうか。

すみませんが、教えていただけるでしょうか。
よろしくお願いいたします。

回答No.7

gyazae

既に入力している数値が消えないようにする、というのは難しいですね。
上の例で考えると、

１． A4 に =A3 と入力
２． A4 を全ての空欄（A7, A8等）に対してコピペ

という手順になるでしょうか。
ただ、これだと面倒なので、もし私がやるのであれば次の通りにします。

３． B1 に =A1 と入力
４． B2 に =IF(ISBLANK(A2), B1, A2) と入力
５． B2 を列の最後までコピペ（フィルドラッグ）
６． A 列を必要に応じて非表示化

以上、参考になれば。

お礼

いろいろな関数があるのですね。
ISBLANKは種類としては見たことがありましたが、使ったことはありませんでした。

勉強になりました。

補足

すばらしい方法だと思うのですが、Ａ列に空欄が２行以上続くと、２行目以降が０になってしまいます。

どうしたらよいものなのでしょうか。

ありがとうございます。

回答No.5

MIKAN01234

もっとうまいやり方があるかもしれませんが、一例として・・・

関数の入った表示される列と、空欄のある入力の列とに分ける。
これは、「すでに入力している数値が消えないようにしたい」という事の為の措置です。
～例～
Ａ列には空欄のある
１２
１５
２２

３３
３４

５５
を入力する

Ｂ列には
その結果
１２
１５
２２
２２　←
３３
３４
３４　←
３４　←
５５
と表示される為の関数を入力する。
その関数は
=IF(A1="",#REF!,A1)
こんな感じ
これは、Ｂ列1行目に入力する関数
あとは、Ｂ列にこれを全てコピペすれば希望通りに表示されます。
印刷などする場合は、Ａ列を非表示（折りたたんで）にして印刷すればＯＫです。

こんなしょぼいやり方じゃなくやれる方法があるかもしれませんが・・・書いておきます。

お礼

これは全く初めて見るコード？です。
#REF!ですか。興味がわきました。

ありがとうございました。

補足

Ｂ列に入力し、フィルドラッグでコピーしましたが、隣が空欄のセルですと、　　#REF!　と表示されてしまいます。

どうしたらよいのでしょうか？

回答No.4

zap35

＃０２です
=IF(A2="",OFFSET(A2,-1,0),A2)
の誤りでした。

なおOFFSET関数を使用したのは行削除を行ったときに、その行を参照している式が#REF!エラーとならないようにするためです。

お礼

ありがとうございます。
行削除までは私も気がつかなかったのですが、確かにその可能性はあります。
お心遣い感謝いたします。

回答No.3

merlionXX

A列にはA1から下にデータがあるものとします。
B1に　
=A1
B2に　
=IF(A2="",B1,A2)
といれて、B2を下までフィルドラッグでコピーします。

これで、B列に隙間無く数字が入ったと思います。
次ぎに、B列をコピーし、A列に、メニューの編集で「形式を選択して貼り付け」で「値」を貼り付けます。
B列の式をけします。

これでいかがでしょう？

お礼

出来ました。
なるほど、「一つ上」というコードがあるのではなく、一つ上のセルを指定して、ドラッグすれば適宜ずれていくのですね。
エクセルは初心者なもので、考え方まで教えていただき、ありがとうございました。

また、貼り付け方法も解説いただき、感謝いたします。

補足

すばらしい方法だと思うのですが、Ａ列に空欄が２行以上続くと、２行目以降が０になってしまいます。

どうしたらよいものなのでしょうか。

ありがとうございます。