要使用VBS获取电子表格中A列最后一个单元格所在的行数，可以使用以下代码：

Option Explicit

Dim objExcel, objWorkbook, objWorksheet, lastRow

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\path\to\your\excel\file.xlsx")
Set objWorksheet = objWorkbook.Worksheets(1)

lastRow = objWorksheet.Cells(objWorksheet.Rows.Count, "A").End(-4162).Row

MsgBox "A列最后一个单元格所在的行数为：" & lastRow

objWorkbook.Close SaveChanges:=False
objExcel.Quit

Set objWorksheet = Nothing
Set objWorkbook = Nothing
Set objExcel = Nothing

请将C:\path\to\your\excel\file.xlsx替换为您的电子表格文件的实际路径。运行此脚本后，将弹出一个消息框显示A列最后一个单元格所在的行数。