エクセルで１００００行ぐらいあるやつをで２０００行づつ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 田中９３９３