VBScriptの - Excelで最後の行を見つけるために

この紙の記録は、ページ、最後の行を見つける方法のVBScript、Excelを使用します。

VBAの参照溶液：

多くのソリューションVBScriptとVBAは、特にExcelの時間のために、共通している
ので、一般的に下の方法3で使用し、VBAでの見てみましょう：

'从页面最后一行，按 Ctrl + Up 箭头
  LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row

'使用 UsedRange 属性
  LastRow = sht.UsedRange.Rows(sht.UsedRange.Rows.Count).Row

'使用 SpecialCells 函数
  LastRow = sht.Cells.SpecialCells(xlCellTypeLastCell).Row

溶液中でのVBScript：

その後、我々は、VBScriptのは、どのように、上記の効果を達成するために見
た場合、上記のコードは、エラーが発生するVBScript、に直接実行されている場合、
真ん中のは、トリックがあることは事実である私が前に告知しなかったです
VBScriptのは、定数（定数）、手動で設定する必要があり、
かつ、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で実現され、
数値定数は、見つけるために、Microsoftの公式ドキュメントに行くことができ
、一般的に使用される定数を、あなたの参考のために記載されている以下の4つがあります：

    Constant	    Value
    xlDownward	    -4170
    xlHorizontal    -4128
    xlUpward	    -4171
    xlVertical	    -4166

参考読書：

1. スプレッドシートの達人 - 最後の行またはVBAを使用して、最後の列を検索する5つの方法
2. スタックオーバーフロー - VBScriptを使用してExcel内の列の一番下の検索
3. Microsoft Excelの定数[Excel 2003のVBAリファレンス] | マイクロソフトドキュメント