然后，我们来看下，VBScript中，要怎么达到上面的效果，
如果，要是把上面代码，直接放到 VBScript 中运行，就会出现位置错误，
这中间确实，有一个 Trick，是我之前没注意到的，
就是，VBScript 中必须手动设置，Constant （常量），
而，VBA 中，这些常量的值，是默认的，不用设置，
那么，来看下 VBScript 的代码：
'先设定要使用到的 Objects（对象）
Set oExcel = GetObject(,"Excel.Application")
Set wb = oExcel.Workbooks("Book10 - Copy.xlsm")
Set sht = wb.worksheets("Data")
wb.Activate
'从页面最后一行，按 Ctrl + Up 箭头
Const xlUp = -4162
LastRow = sht.Cells(sht.Rows.Count, 1).End(xlUp).Row
MsgBox LastRow
'或者，使用 Range，和 Ctrl + Up 箭头
Const xlUp = -4162
LastRow = sht.Range("G" & sht.Rows.Count).End(xlUp).Row
MsgBox LastRow
'或者，使用 UsedRange 属性
LastRow = sht.UsedRange.Rows(sht.UsedRange.Rows.Count).Row
MsgBox LastRow
'或者，使用 SpecialCells 函数
Const xlCellTypeLastCell = 11
LastRow = sht.Cells.SpecialCells(xlCellTypeLastCell).Row
MsgBox LastRow
以上，就是 VBScript 中的实现方法，
常量的数值可以去，微软官方文档中去找，
常用的常量，有下面四种，列出来供大家参考：
Constant Value
xlDownward -4170
xlHorizontal -4128
xlUpward -4171
xlVertical -4166
参考阅读：
5 Different Ways to Find The Last Row or Last Column Using VBA — The Spreadsheet Guru
Find bottom of a column in Excel using VBScript - Stack Overflow
Microsoft Excel Constants [Excel 2003 VBA Language Reference] | Microsoft Docs
