【VBA】ちょっと便利なファンクション

指定した列の最終行番号を取得します

Option Explicit

'---------------------------------------------------------
' 機能		: シートおよび列を指定して最終行番号を取得する
' 第1引数	: ワークシート　worksheet型
' 第2引数	: 列番号　string型
' 返り値   	: 最終行番号　long型
' 更新日   	: 20181212
'---------------------------------------------------------
Public Function LastRow(ByVal WS As Object, ByVal col As Variant) As Long
   LastRow = WS.Cells(WS.Rows.Count, col).End(xlUp).Row
End Function

使い方

Sheet1の”C”列の最終行番号を取得したい時
※上記コードをModule1に記述した場合

dim last_row as long
last_row = Module1.LastRow(Sheet1,"C")

Excelのみで使用できます