
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
同じ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()
Dim wb As Workbook
Dim 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 wb = Workbooks.Add
wb.Sheets(1).Name = z & "~" & z + 999
ts.Rows(z & ":" & z + 999).Copy wb.Sheets(1).Range("A1")
z = z + 1000
Next i
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルからアクセスにインポ...
-
ローマ字入力で「トゥ」を入力...
-
word の文字入力 文字が青色に...
-
「未使用」と「不使用」ってど...
-
すべてのシートを選択してエク...
-
「T」「H」「C」などだけが入力...
-
1点の辻の字に変換したいがエク...
-
Excelでエラー(#N/Aなど)値を...
-
コマンドプロンプトが実行中か...
-
VLOOKUP関数についての質問です...
-
ExcelでVBAを使用した際に、『...
-
けさ、ツイッター(X)を開いたら
-
入力時に母音の小文字打つ時、...
-
ttlで戻り値を取得する方法
-
SUM関数の範囲に#N/Aが...
-
PPTのスライド表示の画面の位置...
-
エクセル 絶対値の合計
-
送信エラー時、レポートメール...
-
自宅にwi-fi環境があるにも関わ...
-
電子辞書の画面をPCに映すには
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルからアクセスにインポ...
-
エクセル(EXCEL)VBAで行自動分割
-
複数のエクセルファイル内を検...
-
できますか?
-
エクセル グラフの元データは...
-
Windows2000でのExcel2003
-
エクセルVBAでシート内の特定文...
-
Vector Works11でのエクセルの...
-
エクセルでプルダウンから5つ条...
-
エクセルで作成した表の貼り付...
-
word の文字入力 文字が青色に...
-
ローマ字入力で「トゥ」を入力...
-
1点の辻の字に変換したいがエク...
-
「未使用」と「不使用」ってど...
-
「T」「H」「C」などだけが入力...
-
Excelでエラー(#N/Aなど)値を...
-
すべてのシートを選択してエク...
-
コマンドプロンプトが実行中か...
-
SUM関数の範囲に#N/Aが...
-
ExcelでVBAを使用した際に、『...
おすすめ情報