Sub getLastColumn() Dim lastColumn As Integer '5行目の最終列を取得 lastColumn = Sheets("Sheet2").Cells(5, Columns.Count).End(xlToLeft).Column MsgBox lastColumn End Sub ■部品化 Sub try() Dim i As Integer Dim lastRow As Integer Dim lastcolum…