Excelの計算式で、特定の文字列の一つ下のセルを取り出せますか？

質問

うちは単純にExcel(VER.97)で顧客データを管理しているのですが、お客さまからのメールをばらばらにペーストして、振込用紙に住所とかを印刷したり、以前の注文商品がなんだったかを見るようにしています。

　たとえば、ショッピングカートでメールを受注すると、

『購入商品情報』
----------------------------------------------------------------------
（商品1）
品番：SND-R-R6
品名：サンドストーン
単価：30円

という感じにメールが送られてきます。

　これを、まるごとメールの文章をExcelにペーストすると、行数が多い文だけペーストに時間がかかります。
　でも、まるごとペーストすると、すべての内容がA列に入るので、何か計算式を使えば、一発で任意の場所にそのデータの値を持っていけるのではと思うのです。

たとえば、
「[商品1]　という文字列と同じ列の、　[商品1]　の次の行のセルの値を返す　」
「[商品1]　という文字列と同じ列の、　[商品1]　の次の次の行のセルの値を返す　」

という計算式。これが使いたくてしょうがないのですが、計算式の辞書を片手に苦心しましたが分からない・・・

もしご存知なら助けてください～よろしくおねがいします。

回答No.3

imogasi

＃１で回答を入れたものです。実のところ質問の内容を捉えていませんでした。VBAでないと出来ないのではとのご回答もあり、再度下記を載せてみます。質問の内容を明確にするためにもしたいことは下記（１）と（３）のようなものでしょうか。
（１）まずエクセルのSheet1にテストデータを作ります。セルA1からA16までです。
（商品1）
品番：SND-R-R6
品名：サンドストーン
単価：30円
品番：SND-R-R7
品名：ノート
単価：５1円
品番：SND-R-R１２
品名：消しゴム
単価：１００円
品番：SQT-R-R9９
品名：筆箱
単価：２００円
品番：AAB-Y-R10
品名：マーカー
単価：１３０円
Sheet1にボタンを１つ貼りつけておきます。
Sheet1に貼りつけが終わるとボタンをクリックします。
（２）VBEのModule1に
Sub test01()
d1 = Sheets("sheet1").Range ("a2").CurrentRegion.Rows.Count ' この行は上の行の右端に続けてください
d2 = Sheets("sheet2").Range("a2").CurrentRegion.Rows.Count ' この行は上の行の右端に続けてください
k = d2 + 1
For i = 1 To d1
a = Worksheets("sheet1").Cells(i, 1)
　If Left(a, 3) = "品番：" Then
　　Sheets("sheet2").Cells(k, 1) = Mid(a, 4, 10)
　　a = Worksheets("sheet1").Cells(i + 1, 1)
　　Sheets("sheet2").Cells(k, 2) = Mid(a, 4, 10)
　　a = Worksheets("sheet1").Cells(i + 2, 1)
　　Sheets("sheet2").Cells(k, 3) = Mid(a, 4, 10)
　　k = k + 1
　End If
Next i
End Sub
を作ります。
またSheet1のイベントプロシージャーとして
Private Sub CommandButton1_Click()
test01
End Subを作る。
（３）前記ボタンをクリックすると、Sheet2のA2からC６に
SND-R-R6 サンドストーン 30円
SND-R-R7 ノート ５1円
SND-R-R１２ 消しゴム １００円
SQT-R-R9９ 筆箱 ２００円
AAB-Y-R10 マーカー １３０円
が出来ます。
（４）仮定があります。貼りつける前に毎回Sheet1はクリアーしてください。VBAでクリアーも可能。品番、品名、単価はこの順序でならんでA2セル以下に続いてSheet1に入ってくるものと仮定しています。品番は１０桁以下と仮定しています。品番：、品名：、単価：はこのままの言葉で入ってくるものとします。これらの仮定は外してもプログラムを複雑にすれば対処可能と思う。

お礼

こんにちは、るるるーです。

丁寧にご回答頂いて、びっくりしました。お忙しい中本当にありがとうございました。

でもでも、
（１）まずエクセルのSheet1にテストデータを作ります。セルA1からA16までです。

はできましたが、

Sheet1にボタンを１つ貼りつけておきます。
Sheet1に貼りつけが終わるとボタンをクリックします。

ここからが分かりません。オートシェイプで形を作るのがぜいぜい・・・
VBEとマクロがなんであるか、Module、イベントプロシジャーなどの意味がわからないのです。

imogasiさんと私の知識に雲泥の差あり・・・

いろいろ出来て大変便利そうなのですが、難しいですね。計算式でできないか模索中です・・・

大変詳しく時間をかけて説明して説明してくださっているだけに、申し訳ない気持ちでいっぱいです。

もうちょっとがんばってみますね。
すみません＆ありがとうございました。