アプリ版:「スタンプのみでお礼する」機能のリリースについて

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桁になるため、かなり膨大な量の商品があると考えてください。

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

よろしくお願いします。

A 回答 (2件)

   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)
   フォント色 白
「EXCELで通し番号の行に欠番有りの番号」の回答画像2
    • good
    • 1
この回答へのお礼

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

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

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

ご質問の例を使って書きます。
まず、最初の欠番のある表をちょっと離れたk列あたりから作ります。
ですからKに品番、Lに品名、Mに価格となるようにします。(例では6行ですので表は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))として縦にコピーとすればできると思いますよ
    • good
    • 3
この回答へのお礼

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

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!