[エクセル] セルが空だったら一つ上のセルを自動入力する

こちらには困ったときにいつもお世話になっております。
今回もよろしくお願いいたします。

EXCEL2002にて、セルが空だったら一つ上のセルを自動入力するようにしたいのです。状況といたしましては、ある個人情報管理アプリケーションが、吐き出すＣＳＶファイルがあります。それが、困ったことに一人の人に複数の情報がある場合、個人情報ナンバーを省略します。わかりずらいと思いますので、以下の表をご覧ください。

個人情報ＩＤ　電話番号
0001　　　　　01-2345-1111
0002　　　　　01-2345-2222
　　　　　　　　01-2345-2223
0003　　　　　01-2345-3333
　　　　　　　　01-2345-3334
　　　　　　　　01-2345-3335
　　　　　　　　01-2345-3336
0004　　　　　01-2345-4444

以上のような表になります。そこで、「0002」の下の空のセルにも0002。「0003」の下の３つの空のセルすべてに0003を自動的に入力できるようにしたいのです。各々コピーしていけば何とか埋まるのですが、データ量が多くかなり時間がかかってしまいます。

解決方法をご存知の方がいらっしゃいましたら、お力添えの程、よろしくお願いいたします。

No.2 ベストアンサー 回答者： comv 回答日時： 2002/11/06 11:22

こんにちは

・Ａ列の対象範囲を選択
・編集　ジャンプ　セルの選択　「空白セル」にチェック
・数式バーに　=An(注)　と入力後
　[Ctrl]を押したまま[Enter]　で入力確定

セル行(n)　はアクティブセルの直上セル行値です
　対象セル（空白セル）が選択された状態で１箇所だけ
　反転していないセルがアクティブセルです。
例えば以下の場合
　Ａ４がアクティブセルになっている筈なので　=A3　と
　なります。

　　　Ａ　　　　　　　Ｂ
１　個人情報ＩＤ　電話番号
２　0001　　　　　01-2345-1111
３　0002　　　　　01-2345-2222
４　　　　　　　　　01-2345-2223
５　0003　　　　　01-2345-3333
６　　　　　　　　　01-2345-3334
７　　　　　　　　　01-2345-3335
８　　　　　　　　　01-2345-3336
９　0004　　　　　01-2345-4444

この回答へのお礼

ご回答頂きまして、ありがとうございました。
大変勉強になりました。今後も何かありましたら、
よろしくお願いいたします。

お礼日時：2002/11/07 13:44

No.5 回答者： imogasi 回答日時： 2002/11/06 17:51

私は＃２のご回答がスマートと思います。

#2のご回答の方式でやっていることが理解が難しいかもしれないので、私なりの別説明を加えてみます。決してご回答者のご説明が判り難いというのではありませんのでご理解をお願いします。
いま例えばA1に１、A4に２、A6に３が入っていて、
A2,A3、A5、A7は空白とします。
空白セルに直前セルの値を順次セットしたいわけです。
（１）CTRLキーを押しつつセルをクリックすると、飛び離れたセルを選択出来ることをご存知でしょうか。
それでA2,A3、A5、A7をクリックします。
（２）アクチブセルはA7になっていますが、CTRLキーを押したままA2をクリックします。これでA2がアクチブセルに
なります。
（３）A2セルに数式バーから=A1をいれます。
（４）指定した（１）のセル全部に式を（相対的に）複写するためCTRLキーを押しながらEnterキーを押します。
CTRLキーを押してないとA2セルにしか式が入りません。
するとA2,A3、A5、A7に式が複写されます。
（５）（１）でセルを１つづつクリックするのは、数が
多いと大変なので、編集－ジャンプ－セル選択－空白セル－ＯＫで空白セルを自動的に全部探す機能を（１）の段階で使うのです。
（６）すなわちa.空白条件の飛び飛びのセルを全て１度に選択する.
b.選択したセル全部に相対的に変化させた式を設定する機能（CTRL＋ENTER)の２つが使われています。

この回答へのお礼

ご回答頂きまして、ありがとうございました。
大変勉強になりました。今後も何かありましたら、
よろしくお願いいたします。

お礼日時：2002/11/07 13:41

No.4 回答者： kazuhiko5681 回答日時： 2002/11/06 11:41

初めまして。

サンプルマクロを作ってみました。下記のコードをコピー＆ペーストするだけで、他の作業を(＃１・＃２のような)せずに貴方様の思い通りの動作を実行させることができます。下記の様に操作してみて下さい。

１.データの入っているブックを開く。
２.Sheet1にコマンドボタンを１個配置する。
　・ファイルメニューにマウスポインターをあわせて右クリックし、出てき　　たプルダウンメニューのVisual Basicをクリックする。
　・出てきたツールバーの右から３番目(コントロールツールボックス)をク　　リックし、コントロールツールボックスの一番右側の上から２番のコマ　　ンドボタンをクリックし、シートの適当な位置でクリックする。
　・ツールバーの２番目(デザインモード)のボタンが押された状態になって　　いたらそのボタンをクリックしてＯＦＦの状態にする。
３.ＡＬＴ＋Ｆ１１を押してＶＢＥ画面を立ち上げ、VBAProjectと書いてある下のSheet1の部分にマウスポインターをあわせてダブルクリックし、右側の白い部分に下記のコードをコピー・ペーストする。
４.ＡＬＴ＋Ｆ１１を押してシート１の画面に戻り、データを入力後コマンドボタンを押す。

Private Sub CommandButton1_Click()

For i = 2 to Cells(Rows.Count,1).end(xlUp).Row
If cells(i,1).value = "" then
Cells(i,1).Value = Cells(i,1).Offset(-1,0).Value
next i　

お試しになってみて下さい。　

この回答へのお礼

ご回答頂きまして、ありがとうございました。
大変勉強になりました。今後も何かありましたら、
よろしくお願いいたします。

お礼日時：2002/11/07 13:43

No.3 回答者： taisuke555 回答日時： 2002/11/06 11:27

VBAですが・・・

１、[Alt]+[F11]を押す。VisialBasicEditerに変更されます。
２、左上にプロジェクトと書いてある中に、
　　　VBAProject(現在のブック名）
　　　　　└Microsoft Excel Objects
　　　　　　　　├Sheet1
　　　　　　　　　・・・
　　　　　　　　└ThisWorkbook
　　とあると思うので、ThisWorkBookをダブルクリック
３．以下のコードを貼り付ける
***************************この下から*****************************
Sub Data_Chk()
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If (Cells(i, 1) = "") Then
Cells(i, 1) = Cells(i - 1, 1)
End If
Next i
End Sub
***************************この上まで***************************
４．[Alt]+[F11]を押す。Excelに戻ります。
５．コメントを挿入したいセルを選択する。
６．「ツール」→「マクロ」→「マクロ」→「ThisWorkbook.Data_Chk」を選択し、実行

いつも同じブックで処理を行うならば、上の方法でできます。
違うブックの場合、個人マクロとして登録する方法もありますので、分からなければ、補足してください。
うまくいかないときにも、補足していただければ、私のわかる範囲で回答します。

この回答へのお礼

ご回答頂きまして、ありがとうございました。
大変勉強になりました。今後も何かありましたら、
よろしくお願いいたします。

お礼日時：2002/11/07 13:44

No.1 回答者： nek 回答日時： 2002/11/06 10:17

IF分を使えばできます。

やり方は色々ありますが
例えば、上記例題の場合（個人情報IDがA1の場合）
01-2345-1111の右のセル（C2）に
=IF(A2<>"",A2,C1)という式を書けばＯＫです。
後はC1のセルをそのまま下にコピーすれば思い通りのデータができます。
Cにできたデータを個人情報IDへコピーすればいいと思いますが

この回答へのお礼

ご回答頂きまして、ありがとうございました。
大変勉強になりました。今後も何かありましたら、
よろしくお願いいたします。

お礼日時：2002/11/07 13:44