Option VBASupport 1 REM ***** BASIC ***** Sub Main Dim xlLastRow As Long 'Excel自体の最終行 Dim LastRow As Long '最終行 Dim i As Integer Dim j As Integer Dim s As String Dim RowAfterAdd As Long Dim Cellnum() As Long xlLastRow = Cells(Rows.…