表内最終列を取得

'------------------------------------------------------
'表内最大列を取得
'
'   戻値：表内最大列
'
'   引数：対象ワークシート
'       ：カウント基準となる行（省略時：1（1行目））
'
'   注意：オートフィルター、非表示は解除してから行うこと
'-------------------------------------------------------
Function lngGetMaxCol(wsWorksheet As Worksheet, Optional lngCountBaseRow As Long = 1) As Long

    Dim lngMaxCol As Long
    
    lngMaxCol = wsWorksheet.Cells(lngCountBaseRow, Columns.Count).End(xlToLeft).Column    'シート最大列からCtrl+←で表内最大列取得
    
    lngGetMaxCol = lngMaxCol
    
End Function