使用VBScript在Excel中查找后获取列值

我使用下面的代码在整个Excel工作表中查找特定文本，并能够访问该特定单元格。有了这些信息，我想读取活动行的每个列值

Dim ObjXL
Const xlWhole = 1
Set ObjXL = CreateObject("Excel.Application")

ObjXL.Workbooks.Open ("C:\Config.xls")
Set objWorksheet = ObjXL.Worksheets("Sheet1")
Set objRange = objWorksheet.UsedRange
Set objTarget = objRange.Find("Honda", , , xlWhole) ' The searched value is on column 3.

我尝试使用偏移方法，但似乎效果不错：

Msgbox objTarget.Offset(, -2).Value

Excel工作表有7列，将-2传递给Offset方法会得到第一列中的值。如何动态获取该行的第一列和最后一列索引，以便将它们传递给Offset方法。或者更好，我希望能够基于列名获取列值

---

谢谢。

不完全清楚您想要什么，但行中的第一个单元格可能是：

Cells(objTarget.Row, objRange.Column)

最后一间牢房呢

Cells(objTarget.Row, objRange.Columns(objRange.Columns.Count).Column)

表示整行的范围对象将是：

objRange.Rows(objTarget.Row)