I have the following code:
我有以下代码:
Dim conRow As Long
Dim targetBook As Workbooks
Dim targetSheet As Worksheet
Dim targetRng As Range
targetBook = Workbooks("C:\file\path\here\filename.xlsx")
targetSheet = Worksheets("SheetName")
targetRng = Range("$A:$A")
conRow = Application.Match("APersonsName", Workbooks(targetBook).Sheets(targetSheet).targetRng, 0)
Dim conR