@洪流Blog
space ホーム space|space ユーザログイン
space
 現在位置:技術 >> VBSツール >>VBA 指定した列の最終行を取得する関数

VBA 指定した列の最終行を取得する関数
投稿者:于洪流

’::::::::::::::::::::::::::::::::::
'指定した列の最終行を取得する関数
'book:ファイル名
’sheetname :シート名
’startCow :数える範囲の指定開始列
’endCow :数える範囲の指定終了列
’::::::::::::::::::::::::::::::::::
Function getLastRow(book As Workbook, sheetname As String, startCow As Long, endCow As Long) As Long
Dim wbWK As Workbook
Set wbWK = book
With wbWK.Sheets(sheetname)
Dim lastRow As Long
lastRow = 1
For i = startCow To endCow
If lastRow < .Range(.Cells(65536, i), .Cells(65536, i)).End(xlUp).Row Then
lastRow = .Range(.Cells(65536, i), .Cells(65536, i)).End(xlUp).Row
End If
Next
getLastRow = lastRow
End With
End Function

loginユーザメニュー
  ユーザログイン  

     トップ↑

space
@洪流Blog 最新コンテンツ サイト情報 権利情報 提携リンク
Copyright ©2002-2018 洪流  Mobileモード    中国語メニュー(追加中)
OneIDSystem Ver:1.5.0.1.2 Powered by:OneID.id