| |
▼おっちゃん さん：
こんばんは。
>先程質問させてもらったおっちゃんです。
>
>こんなデータがあると仮定します。
>
> Ａ列 Ｂ列
>行番号１ みかん ０
>行番号２ りんご ０
>行番号３ バナナ １０
>行番号４ ぶどう １３
>行番号５ なし １７
> ・ ・ ・
>
>のようにＢ列で並び変えてあります。
>ここでＢ列を検索して数値が１以上のもの、つまりバナナの行番号３
>を取得したいのです。
>
>よろしくご教授下さい。
数式で可能ですが、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
例題のようなデータがあるシートをアクティブにしてマクロを実行してみて下さい。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
