![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67b6d)
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を探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルからアクセスにインポ...
-
エクセル2010または2007でのVBA
-
ローマ字入力で「トゥ」を入力...
-
「未使用」と「不使用」ってど...
-
1点の辻の字に変換したいがエク...
-
エクセルで0.0と表示したい
-
Excelでエラー(#N/Aなど)値を...
-
コマンドプロンプトが実行中か...
-
SUM関数の範囲に#N/Aが...
-
ExcelでVBAを使用した際に、『...
-
PPTのスライド表示の画面の位置...
-
入力時に母音の小文字打つ時、...
-
チケット何回もエラーは高額請求?
-
自動改札のエラーって…
-
日本通信の当月利用データ量は...
-
「T」「H」「C」などだけが入力...
-
すべてのシートを選択してエク...
-
送信エラー時、レポートメール...
-
AUTO-CADで文字の太さを太くす...
-
ACCESS VBA でのエラー解決の根...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルからアクセスにインポ...
-
エクセル(EXCEL)VBAで行自動分割
-
エクセル グラフの元データは...
-
複数のエクセルファイル内を検...
-
エクセル基本操作とは?
-
エクセルの基本操作って?
-
エクセルVBAでシート内の特定文...
-
Windows2000でのExcel2003
-
エクセルで作成した表の貼り付...
-
Vector Works11でのエクセルの...
-
エクセルで、ある集まりでの名...
-
エクセルでプルダウンから5つ条...
-
ローマ字入力で「トゥ」を入力...
-
「未使用」と「不使用」ってど...
-
1点の辻の字に変換したいがエク...
-
Excelでエラー(#N/Aなど)値を...
-
ExcelでVBAを使用した際に、『...
-
Chatgptから送られてきたリンク...
-
すべてのシートを選択してエク...
-
コマンドプロンプトが実行中か...
おすすめ情報