EXCELで通し番号の行に欠番有りの番号の行を照応させる方法を教えてください。

WindowsXPのOffice 2003を使用しています。

EXCELで以下のような表があるとします。

001 リンゴ 300円
003 みかん 150円
004 スイカ 500円
006 メロン 900円
008 プラム 400円
009 レモン 100円

一番左の列は品番のようなものです。それぞれに商品名と料金などの付随する情報があります。

現在品番は欠番があって数字が飛んでいます。これに対して、欠番のない通し番号の列を新規に作り、以下のように品番が通し番号と同じ数字の行に自動で並ぶようにしたいのです。

001 001 リンゴ 300円
002
003 003 みかん 150円
004 004 スイカ 500円
005
006 006 メロン 900円
007
008 008 プラム 400円
009 009 レモン 100円


実際には通し番号は6桁になるため、かなり膨大な量の商品があると考えてください。

当方、マクロについては詳しくありません。なるべく簡単な方法で解決できる方法がありましたらご教授ください。マクロを使った方法の場合、お手数ですがどのようにそのマクロを設定したらいいかまで具体的に１からご指導いただけるととても助かります。

よろしくお願いします。

No.1 ベストアンサー 回答者： Turbo415 回答日時： 2009/07/14 08:40

いろいろ方法はあると思いますが。

ご質問の例を使って書きます。
まず、最初の欠番のある表をちょっと離れたk列あたりから作ります。
ですからKに品番、Lに品名、Mに価格となるようにします。（例では６行ですので表はH1からM6になります）
そして、A列に001から009まで縦に番号を付けます。その後、B1セルに
=IF(ISERROR(VLOOKUP($A1,$K$1:$M$6,1,FALSE)),"",VLOOKUP($A1,$K$1:$M$6,1,FALSE))として縦にコピー、C1セルに=IF(ISERROR(VLOOKUP($A1,$K$1:$M$6,2,FALSE)),"",VLOOKUP($A1,$K$1:$M$6,2,FALSE))として縦にコピー、D1セルに=IF(ISERROR(VLOOKUP($A1,$K$1:$M$6,3,FALSE)),"",VLOOKUP($A1,$K$1:$M$6,3,FALSE))として縦にコピーとすればできると思いますよ

この回答へのお礼

早速ありがとうございます！

ご指示いただいたとおりに試してみたところ、完璧に解決できました。大変助かりました。ありがとうございます。

お礼日時：2009/07/14 08:59

No.2 回答者： mike_g 回答日時： 2009/07/14 10:00

　　 A　　 B　　　 C　　D　 E　　 F　　　 G

1　 001　リンゴ　300円　　 001　リンゴ　300円
2　 003　みかん　150円　　 002　　　　　　　
3　 004　スイカ　500円　　 003　みかん　150円
4　 006　メロン　900円　　 004　スイカ　500円
5　 008　プラム　400円　　 005　　　　　　　
6　 009　レモン　100円　　 006　メロン　900円
7　 …　 ……　　……　　　007　　　　　　　
8　 …　 ……　　……　　　008　プラム　400円
9　 …　 ……　　……　　　009　レモン　100円
10　…　 ……　　……　　　…　 ……　　……

次の[条件付き書式]を設定したセル F1 に式 =VLOOKUP($E1,$A:$C,COLUMN(B1),FALSE) を入力して、此れを右および下方にズズーッとドラッグ＆ペースト
　　　数式が　　　=ISERROR(F1)
　　　フォント色　白

この回答へのお礼

ご指示いただいたとおりに試してみたところ、要件通りに解決できました。条件に適応しないセルは白地で隠す、という方法ですね。画像までご用意いただき、大変ありがとうございます。

お礼日時：2009/07/14 16:37