web-dev-qa-db-ja.com

vbscriptを使用してExcelで特定の値の行番号を見つける方法

開いているExcelファイルがあり、VBスクリプトを使用して、テキストストリングに一致するまでExcelシートの列 "A"のみを検索する必要があります。一致するスクリプトが見つかったら、一致が見つかったセルの行番号を確認します。事前にご協力いただきありがとうございます。

excelvbscript
11
buri kuri

これは、アクティブシートの列Aで「test2」の最初のインスタンスを見つけるVBAです。必要に応じて文字列とワークシートを調整できます。セル全体が一致する場合にのみ一致としてカウントされます。たとえば、「test2222」は一致しません。必要に応じて、lookat:=xlWholeビット：

Sub FindFirstInstance()
Const WHAT_TO_FIND As String = "test2"
Dim ws As Excel.Worksheet
Dim FoundCell As Excel.Range

Set ws = ActiveSheet
Set FoundCell = ws.Range("A:A").Find(what:=WHAT_TO_FIND, lookat:=xlWhole)
If Not FoundCell Is Nothing Then
    MsgBox (WHAT_TO_FIND & " found in row: " & FoundCell.Row)
Else
    MsgBox (WHAT_TO_FIND & " not found")
End If
End Sub
20
Doug Glancy