エクセルについて質問です。

質問

a列 b列
1 りんご 100
2 ぶどう 150
3 いちご 100
4 ぶどう 120
5 いちご 120
6 ぶどう 130
というデータがあったとしてもし、自セルより上の行に同じ名前が有った場合いその中で一番上のセルのB列の数字をもってくるという関数もしくはマクロがあれば教えていただけないでしょうか。6行目のぶどうであればB列が150になるような感じです。よろしくお願いします。

回答No.2

keithin · ベストアンサー

６行目のぶどうは既に１３０なのに、どうしてそれが１５０になってしまうのかイミフメイのご相談ですね。
それに上に同じものが無かったらどうしたいのかも、ご相談が片手落ちです。

総合的にはマクロで書き換えたいご相談ということで。

sub macro1()
　dim r as long
　on error resume next
　for r = 2 to range("A65536").end(xlup).row
　cells(r, "B") = application.worksheetfunction.vlookup(cells(r, "A").value, range("A1:B" & r - 1), 2, false)
　next r
end sub

上に同じものが無かったら何もしない、という動作で。

お礼

回答ありがとうございます。助かりました。

回答No.3

tom04

こんばんは！

＞自セルより上の行に同じ名前が有った場合いその中で一番上のセルのB列の数字をもってくる・・・

とは最初に出現した行のデータというコトでしょうか？
それとも「最大値」というコトでしょうか？
最初の出現の回答はすでに出ていますので、「最大値」と解釈して、関数の一例です。

関数の場合B列に表示という訳にはいきませんので、別列表示となります。
C列に表示するとします。

C1セルに
=IF(A1="","",MAX(IF(A$1:A1=A1,B$1:B1)))
これは配列数式になりますので、Ctrl＋Shift＋Enterで確定！
この画面からコピー＆ペーストする場合は
上記数式をドラッグ＆コピー　→　C1セルを選択　→　数式バー内に貼り付け　→　そのまま（編集可能なまま）
Ctrl＋Shiftキーを押しながらEnterキーで確定！
数式の前後に{ }マークが入り配列数式になります。
これをフィルハンドルで下へコピーしてみてください。

※　解釈が違っていたた無視してください。m(_ _)m

お礼

回答ありがとうございます。参考にさせていただきます。

回答No.1

mshr1962

関数の場合（B列の値をB列のセルに表示は循環数式となり無理なのでC列に表示）

C1に　=VLOOKUP($A1,$A$1:$B1,2,FALSE)

として下方にコピー