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