|
▼おっちゃん さん:
こんばんは。
>先程質問させてもらったおっちゃんです。
>
>こんなデータがあると仮定します。
>
> A列 B列
>行番号1 みかん 0
>行番号2 りんご 0
>行番号3 バナナ 10
>行番号4 ぶどう 13
>行番号5 なし 17
> ・ ・ ・
>
>のようにB列で並び変えてあります。
>ここでB列を検索して数値が1以上のもの、つまりバナナの行番号3
>を取得したいのです。
>
>よろしくご教授下さい。
数式で可能ですが、VBAで数式を組み立てました。
'=================================================
Sub test()
Dim ans_row As Long
Dim rng_A As String
rng_A = Range("a1", Cells(Rows.Count, 1).End(xlUp)).Offset(0, 1).Address
ans_row = Evaluate("min(if(" & rng_A & ">0,row(" & rng_A & ")))")
MsgBox ans_row & "行目"
End Sub
例題のようなデータがあるシートをアクティブにしてマクロを実行してみて下さい。
|
|