同じBOOK内に別シート作成の例 Sub test01() Dim ws As Worksheet, ts As Worksheet Dim x As Long, y As Long, i As Long, z As Long Set ts = ActiveSheet x = ts.UsedRange.Rows.Count y = Int(x / 1000) + IIf(x Mod 1000 > 0, 1, 0) z = ts.UsedRange.Rows(1).Row For i = 1 To y Set ws = Sheets.Add ws.Name = z & "~" & z + 999 ts.Rows(z & ":" & z + 999).Copy ws.Range("A1") z = z + 1000 Next i End Sub 別BOOK作成の例 Sub test02() D
![エクセル(EXCEL)VBAで行自動分割](https://cdn-ak-scissors.b.st-hatena.com/image/square/c0db91e91d06972f428b2cb09dde589ae4e9ab3a/height=288;version=1;width=512/https%3A%2F%2Foshiete.xgoo.jp%2Fimages%2Fsp%2Fqa_recommend%2F2099_4.jpg)