同じ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