m-haketa

Option Explicit

Dim WS As Worksheet

Dim maxY As Long
Dim maxX As Long

Dim Outside As Variant
  
Dim toBeChecked As Collection

m-haketa

Sub 最終行取得テスト()
  Debug.Print getLastRow(ActiveSheet)
End Sub

Private Function getLastRow(WS As Worksheet, Optional CheckCol As Long = 1) As Long
 With WS
  getLastRow = 0
  
'UsedrangeとCheckColの範囲が一致する場合のみ内容チェック
'一致していない場合は、CheckColにはデータが入っていないので内容チェックはしない