• ベストアンサー

列に並んだ数字群から一致する数字の行番号を抽出

下記のように　Ｂ列に数字が縦に並んでいます。 28.11684736 28.12102177 28.12519803 28.12937616 28.13355614 28.13773798 28.14192168 28.14610723 28.15029464 28.15448391 28.15867503 28.16286801 28.16706285 28.17125955 28.1754581 この数字群から、例えば　28.15448391　に一致する数字の行を見つけて その行番号を抽出するコードはどのように記述したらよいのでしょうか。 番号はＡ１のセルに置きます。 但し、条件があって Ｅｘｃｅｌ２０００～Ｅｘｃｅｌ２００３の全てのバージョンに共通する こと。そして列のデータ数が約１００００程度はあることです。どこから 手をつけてよいのか判らないので、よろしくお願いします。 簡単な例では下記でもよさそうですが。より早く求めるには？？？　 A= Range("B65536").End(xlUp).Row I=0 Do I=I+1 Loop until Cells(I,2).value=28.15448391　 Range("A1")=I

質問者が選んだベストアンサー

  • ベストアンサー
  • Wendy02
  • ベストアンサー率57% (3570/6232)
回答No.2

こんにちは。 そのような内容は、別に、VBAでなくても良さそうですが。 =IF(ISERROR(MATCH(A1,B:B,0)),"Not Found",MATCH(A1,B:B,0)) VBAなら、そのまま移植すればよいと思います。 以下は、Excel 97 ～ 2007 まで動作可能です。 ただし、見つけるデータは一つという条件下です。 '標準モジュール Sub Test1() Dim ret As Variant Dim mDat As Variant mDat = Range("A1").Value If VarType(mDat) <> vbDouble Then Exit Sub ret = Application.Match(mDat, Columns(2), 0) If Not IsError(ret) Then 　MsgBox ret & "行目に見つかりました。", vbInformation Else 　MsgBox mDat & "は、見つかりません。", vbCritical End If End Sub

catshoes01
質問者

お礼

ありがとうございました。 Excel 97 ～ 2007 まで動作可能 がポイントでした。

その他の回答 (2)

  • gyouda1114
  • ベストアンサー率37% (499/1320)
回答No.3

VBAは、解らないので 関数で 同じ数値が1つだけでB2から数値が入力されている場合 A1に　=IF(ISERROR(MATCH(28.15448391,B2:B100,0)),"0",MATCH(28.15448391,B2:B100,0)+ROW(B2)-1)

catshoes01
質問者

お礼

ありがとうございました。 関数計算から入力されたデータで流れのなかで処理します。 参考にさせていただきます。

回答No.1

B列が昇順であることが条件です Application.ScreenUpdating = False A = Range("B65536").End(xlUp).Row Cells(1, 1).Formula = "=match(" & B & ",B1:B" & A & ")" If Cells(Cells(1, 1).Value, 2) = B Then Cells(1, 1).Value = Cells(1, 1).Value Else Cells(1, 1).Value = "見つかりません" End If Application.ScreenUpdating = True ☆当方VBAは苦手なので参考まで

catshoes01
質問者

お礼

ありがとうございました。 Cells(1, 1).Formula = "=match(" & B & ",B1:B" & A & ")" 新鮮でした。

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • ある文字を含む列と同じ行にある列と一致の文字の除外

    "名称"（D列）で*ABCD*と含まれるものと同じ行にある"番号"（B列）が一致するものを全て除外したい（D列の値は異なるが、 B列の値が一緒なものを除外したい）。 下記のコードに上記の内容のコードを加えたいのですがやり方を教えていただけないでしょうか? ちなみにVBA初心者なためお手柔らかにお願い致します。 Sub 分別（） Dim j As Long j = Cells(Rows.Count, 1).End(xlUp).Row With Range(Cells(3, 1), Cells(j, 43)) .AutoFilter Field:=37, Criteria1:="EFGK" .AutoFilter Field:=4, Criteria1:="*FF0001*", Operator:=xlOr, Criteria2:="*DD0002*" End With End Sub

  • VBAで複数の行のナンバーを取得し、その行の列の値を参照して値を入れる

    下記のことをしたいのですが、調べてもわかりません。 どなたか教えてください。 よろしくお願いします。 内容： エクセルシートのA列の値が11である行ナンバーを取得（複数ある可能性があります）する。 その行のE列（5列目）の値と他のテーブルの値を参照して所定の値をA列の値が11である行のE列（5列目）に返す。 以下のVBAを書いてみましたがうまくいきません。 ----------------------------------------------------------------- Dim ROWCOUNT As Integer Dim row_array() As Variant Dim i As Integer '全行数を取得 ROWCOUNT=Worksheets("sheet1").Range("A1",Range("A65536").End(xlUp)).Count For i = 1 To ROWCOUNT If Cells(i, 1).Value = 11 Then Cells(i,1).Offset(0,5).Value=WorksheetFunction.VLookup(Cells(i, 1).Offset(0, 5).Value, Worksheets("sheet2").Range("A1:H1786"), 3, False) End If Next I

  • E列が空白のとき、その空白行を削除し、番号を振り直す

    windows7　Excel2003でマクロ勉強中です。 あるサイトにE列が空白のとき、その空白行を削除し、番号を振り直すという コードがありました。 自分で作った表（表の最上段の２行は項目名が入っています。）で　 実行すると「Rangeメソッドは失敗しました。Globalオブジェクト」と エラーが出ます。エラーはでますが、処理自体は正しく実行されます。 このエラーの原因と回避するにはどうしたらよろしいでしょうか。 Sub E列が空白のとき、その空白行を削除し、番号を振り直す() Dim i As Long, j As Long '行削除の処理 For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1 If Range("A" & i).Value <> "" And IsNumeric(Range("A" & i).Value) = True Then If Range("E" & i).Value = "" Then Rows(i).Delete End If End If Next '番号振りなおし処理 '’’Range("A" & Rows.Count).End(xlUp).Offset(1).Select For i = 0 To Range("A" & Rows.Count).End(xlUp).Row If Range("A" & i).Value = "番号" Then j = 1　・・・・・ここでエラー発生 If Range("A" & i).Value <> "" And IsNumeric(Range("A" & i).Value) = True Then Range("A" & i).Value = j j = j + 1 End If Next ActiveSheet.Protect End Sub

  • 数字の抽出

    B列の3行目セル左から10桁目～15桁目までの数字を抽出し、その値をC列に記入　ですが、処理終了に時間が掛かっているようです。 Dim k As Long For k = 3 To Range("B65536").End(xlDown).Row Range( C" & k).Value = Mid(Range(B" & k),10,6) Next k ご教授お願い致します。 また、Cells(ｋ,1)を使った方法も教えて頂けますと助かります。

  • VBAで列を探して最終行までハイパーリンクを付けた

    Ａ列に URL http://oshiete.goo.ne.jp/ http://oshiete.goo.ne.jp/ http://oshiete.goo.ne.jp/ http://oshiete.goo.ne.jp/ http://oshiete.goo.ne.jp/ http://oshiete.goo.ne.jp/ http://oshiete.goo.ne.jp/ http://oshiete.goo.ne.jp/ http://oshiete.goo.ne.jp/ が入ってる場合は、 Sub Sample1() Dim R As Range For Each R In Range("a2:a" & Cells(Rows.Count, "a").End(xlUp).Row) ActiveSheet.Hyperlinks.Add Anchor:=R, Address:=R.Value Next End Sub でハイパーリンクを付けられますが、 URL列がＡ列じゃない場合の応用の聞かせ方がわかりません。 場合によっては、画像のようにＢ列であったりＣ列であったりします。 なので Dim C As Long C = Cells.Find(What:="URL", LookAt:=xlWhole).Column で列番号を取得して、ループさせようと思ったのですが、 For Each R In Range("a2:a" & Cells(Rows.Count, "a").End(xlUp).Row) の部分でどうすればいいのかわかりません。 range表記ではなくcells表記にすればいいような気がしますがどうやって改造すればいいでしょうか？ あと、この場合はForEachではなくDoloopやForNextを使った方が良いのでしょうか？

  • Excel2007 マクロ 特定セルの文字列抽出

    Excel2007 マクロ 特定セルの文字列抽出 A列に100行程度、製品番号が入っています。 例えばAAAA-NNN-BBBB-UUUUUUUとある場合に NNNだけを抽出して、B列に転記します。 関数であれば、Mid関数で解決できるのですが、 マクロで解決したいです。 下記を自分で考えたのですが、エラーが発生します。 アドバイスお願いいたします。 Sub moji() Dim last As Long, i As Long Dim strt As Integer 'A列「製品番号」から文字を抽出してB列に反映 last = Range("A65536").End(xlUp).Row For i = 2 To last strt = Mid("A", 7, 3) Cells(i, "B") = strt Next i End Sub

  • 何列の何行目が最終行なのか取得するコードはありますでしょうか？

    　　Ａ列　　Ｂ列　　Ｃ列 １　　○　　　○ 2　　　　　　　 ○ 3 　　　　　　　　　　　　　 ○ これは最終行が3行目と言うのがぱっと見でわかりますが もっと列も行も多い場合、 シート内の何列の何行目が最終行なのか取得するコードはありますでしょうか？ Cells(65536, ？).End(xlUp).Row を行ないたいのですが 毎回何列の行が一番下かを取得する方法があれば教えてください。 よろしくお願い致します。

  • エクセル　全通り出力

    Sub test01() a = Cells(Rows.Count, "A").End(xlUp).Row 'A列最終行取得 b = Cells(Rows.Count, "B").End(xlUp).Row 'B列最終行取得 For i = 1 To a '１行からA列最終行まで繰り返し For n = 1 To b '１行からB列最終行まで繰り返し x = x + 1 Cells(x, "C") = Cells(i, "A") & " " & Cells(n, "B") 'C列に結合して転記 Next n Next i End Sub こちら過去の解答にあったのですが、ａ，ｂ，ｃ，ｄに数字が入っていて、 Ｅに組み合わせを出力する場合どう変えればよいのでしょうか？

  • 【VBA】 通し番号の入力について

    こんばんは。 こちらの識者の方々にはいつもお世話になっています。 VBAの件で質問があります。 B列の最終行までA列に001から文字列で連番を振りたい場合、どのような構文になりますでしょうか。 Range("A1:A" & Range("B" & Cells.Rows.Count).End(xlUp).Row).Value = Format(row, "000") は通らなかったのですが、なにかいい構文はありますでしょうか。 データは必ず1000行以下ですので、番号は3桁で大丈夫です。 よろしくお願いいたしますm(_ _)m

  • 番号が一致したら別の列の値を抽出したい

    こんばんわ。 Excelについて教えてください。 A列に数字が1～10と並んでおり、 C列には数字が穴あきで5つ（1,2,4,6,8）あったとし、 A列とC列を比較して比較し、数字が重複した場合は、 D列にある値をB列に抽出したいのですが、行番号を指定して 抽出する事なんてできますでしょうか？ ↓こんな事をしたいです。 A列　B列　C列　D列 1　　A　　1　　A 2　　B　　2　　B 3　　　 　4　　C 4　　C　　6　　D 5　　　　 8　　E 6　　D 7 8　　E 9 10

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する