0545名無しさん@そうだ選挙にいこう
2018/09/29(土) 08:49:20.57話がかみあってないけど、「For i = 1 to」を、「For i = 2 to 」に変更する。
3行おきになっているのは、そのままでもいいけど、変数jにした方が見やすい。
別ブックに張り付けるのは、どのブックか不明なので(新規ブックなのか既存のブックなのか等)、もっと情報がないとわかりません。
Sub calclation()
Dim i As Long
Dim j As Long
Dim MaxRow As Long
MaxRow = Sheets("保全_集計表").Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To MaxRow
For j = 16 To 46 Step 3
Cells(i, j).Value = Cells(i, j - 1) + Cells(i, j - 2)
Next j
Cells(i, 29) = Cells(i, 26) + 14
Next i
End Sub