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

Question

開いているExcelファイルがあり、VBスクリプトを使用して、テキスト文字列と一致するまでExcelシートの列「A」のみを検索する必要があります。スクリプトがその一致を見つけたら、一致が見つかったセルの行番号を確認したいと思います。よろしくお願いします！

Answer 1

これは、アクティブシートの列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

Answer 2

サンプルをありがとう。その下はVBScriptです

Dim FSO, oExcel, oData, FoundCell, WHAT_TO_FIND, File_Path

WHAT_TO_FIND = "Report Summary"
File_Path = "\\[Server]\[Drive$]\[Folder]\Data.xls"

Set FSO = CreateObject("Scripting.FileSystemObject")
Set oExcel = CreateObject("Excel.Application")
Set oData = oExcel.Workbooks.Open(File_Path)

Set FoundCell = oData.Worksheets("Sheet1").Range("A4:A20000").Find(WHAT_TO_FIND)
If Not FoundCell Is Nothing Then
  MsgBox (WHAT_TO_FIND & " found in row: " & FoundCell.Row)
Else
  MsgBox (WHAT_TO_FIND & " not found")
End If

Set File_Path = nothing
Set WHAT_TO_FIND = nothing
Set FoundCell = nothing
Set oData = Nothing
Set oExcel = Nothing
Set FSO = Nothing