エクセルで１００００行ぐらいあるやつをで２０００行づつbookにしてくれるVisual Basic
エクセル開いて
オプションで
左の リボンのユーザー設定 クリック
次 右側の開発にチェック
OK押して
Visual Basicを押して
分割したいシートをクリック
開いた無地のコードに
↓をコピー
=============================================================================================
Sub wakeru()
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 / 2000) + IIf(x Mod 2000 > 0, 1, 0)
z = ts.UsedRange.Rows(1).Row
For i = 1 To y
Set wb = Workbooks.Add
wb.Sheets(1).Name = z & "〜" & z + 1999
ts.Rows(z & ":" & z + 1999).Copy wb.Sheets(1).Range("A1")
z = z + 2000
Next i
End Sub
=============================================================================================
左上のエクセルボタン押して
マクロ名 実行で
wakeruってのを実行
そしたら
１〜２０００
２００１〜４０００
４００１〜６０００
ってBOOKで分割してくれる
ヘッターの１行目は
コピペで追加して
最後の行から下まで削除しておいたほうがいい 自分メモ
- 2019.10.02 Wednesday
- エクセル Excel Excel
- 04:56
- comments(0)
- -
- by 田中９３９３
![[商品価格に関しましては、リンクが作成された時点と現時点で情報が変更されている場合がございます。]](https://hbb.afl.rakuten.co.jp/hgb/19a3043f.c903c280.19a30440.a2a6632d/?me_id=1210389&item_id=10001179&m=https%3A%2F%2Fthumbnail.image.rakuten.co.jp%2F%400_mall%2Ftomcat%2Fcabinet%2Fitemimg%2F03goods%2Fzy806020.jpg%3F_ex%3D80x80&pc=https%3A%2F%2Fthumbnail.image.rakuten.co.jp%2F%400_mall%2Ftomcat%2Fcabinet%2Fitemimg%2F03goods%2Fzy806020.jpg%3F_ex%3D240x240&s=240x240&t=picttext "[商品価格に関しましては、リンクが作成された時点と現時点で情報が変更されている場合がございます。]")
