VBAおじさんきて😭

1 ：風吹けば名無し：2019/12/04(水) 17:52:42.12 ID:6iBpfmJZM.net

1行目にヘッダー
2-17行に同一人のデータが入ってる
つまり1人につき16行のデータがありそれが90名分
これをひとりずつsumするためにまず行挿入しようとしたんやけどずれるねん何がアカンの？

2 ：風吹けば名無し：2019/12/04(水) 17:53:22.87 ID:6iBpfmJZM.net

組んだのはこれ

Sub 空白行挿入()

Dim i As Integer, 最終行 As Integer

最終行 = Range("A1").End(xlDown).Row

For i = 最終行 To 18 Step -16

Cells(i, "A").EntireRow.Insert

Next

End Sub

3 ：風吹けば名無し：2019/12/04(水) 17:53:55.35 ID:6iBpfmJZM.net

ちなそれぞれの意味はまだあまり分かってないクソザコ🔰や

4 ：風吹けば名無し：2019/12/04(水) 17:54:54 ID:fhzp2SPK0.net

あせって電話かけている人みたい
Cells(i, "A")

5 ：風吹けば名無し：2019/12/04(水) 17:55:13.40 ID:6iBpfmJZM.net

ちなみに知恵袋にあった別のコードで目的は達した

6 ：風吹けば名無し：2019/12/04(水) 17:55:19 ID:p7uc0D/ia.net

そら1行追加したら最終行は増えるやろ