Excel Tips ［その他］

入力されている列数を取得する

書式

対象のシート.Range(対象とする行の先頭のセル).End(xlToRight).Column

Sheet1のA列を基準として、入力されている行数を求める

Sub RetusSuuSample_01()

    Dim sheetXXX            As Worksheet
    Dim RetusSuu            As Worksheet

    Set sheetXXX = Worksheets("Sheet1")
    
    RetusSuu = sheetXXX.Range("A1").End(xlToRight).Column

End Sub