エクセルで１００００行ぐらいあるやつをで２０００行づつ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で分割してくれる
ヘッターの１行目は
コピペで追加して
最後の行から下まで削除しておいたほうがいい自分メモ

コメントする

<< NIGOさん　いつもすごい | main | メキビが製造される動画 >>

このページの先頭へ▲

.

３階建て　FREX ver.1205 Hebel XY's House ピロティーな家 227days日記ってことは　建てるって決めてから２２７日で家ができるってことですね☆
2009年	大阪市内に１５坪の狭小の土地を買う
2010年	隣の方が１５坪の土地を売ってくれて　買うことに３０坪になったけど　実話　セットバックで２７坪である
2012年8月14日	お盆休みに住宅展示場に行って　ヘーベルハウスを見て　俺が住みたいのはこれやがな～～って思う	227日
2012年9月9日	３回ぐらい　打ち合わせをして　間取りをざっくり決める（超ハイペース）８月の月末の大安に　仮契約をせまられるも１０日まってもらって　忘れれない日に仮契約をすることに
2012年9月10日	仮契約の前日	200日
2012年9月11日	後戻りできない仮契約を済ます　現金で契約金を払う	199日
2012年9月16日	1回目の内装を打ち合わせをする	194日
2012年10月12日	2回目の内装の打ち合わせをする	168日
2012年10月21日	３回目の内装の打ち合わせをする	159日
2012年10月29日	４回目の内装の打ち合わせをする　　　 ★間取り公開★	151日
2012年11月2日	変更契約をする	147日
2012年11月12日	ご近所へ挨拶回りをする	137日
2012年11月22日	歩道切り下げの工事がはじまる	127日
2012年11月23日	頭金の残金を支払う	126日
2012年11月24日	歩道切り下げの工事がおわる	125日
2012年11月26日	地鎮祭しないので　地縄の確認だけする	123日
2012年12月2日	雨どいの位置をプチ変更してもらう	117日
2012年12月3日	工事がはじまる	116日
2012年12月5日	地盤改良ASWが打ち込まれる	114日
2012年12月7日	基礎の溝が掘られる	112日
2012年12月10日	基礎鉄筋が組まれる	109日
2012年12月12日	基礎にコンクリートが流し込まれる	107日
2012年12月23日	基礎が完成	96日
2012年12月26日	基礎がきれいになる	93日
2013年1月10日	塩ビ管を抜く	78日
2013年1月12日	基礎の画像メモ	76日
2013年1月17日	１階２階の重量鉄骨が組み上がる	71日
2013年1月19日	１階２階のALC板が張られる	69日
2013年1月20日	２回目の外構の打ち合わせをする	68日
2013年1月23日	３階のＡＬＣ板が張られる	65日
2013年1月30日	屋上のＡＬＣ板が張られてすべてのサッシが入った	58日
2013年2月2日	屋上に断熱材が貼られる	54日
2013年2月7日	防水工事がおわる	49日
2013年2月13日	耐火被覆の工事	44日
2013年2月14日	断熱剤の工事	42日
2013年2月21日	外構のイメージを考える	35日
2013年2月25日	木工事はじまる	31日
2013年3月2日	外壁塗装（カラーはテラグレイ）が終わる	27日
2013年3月4日	中間検査（コンセントの位置確認）	24日
2013年3月５日	太陽光発電パネル設置完了	23日
2013年3月7日	巾木（はばぎ）が施工される	21日
2013年3月11日	石膏ボードパテ埋め　クロスとアクセントタイルが貼られ始める	17日
2013年3月12日	キッチンのタイル張りが完了した	16日
2013年3月14日	ピロティ　インナーガレージの　基礎の鉄筋が組まれる	14日
2013年3月15日	住宅ローンの本契約？	13日
2013年3月16日	内装工事がかなり進む～～	12日
2013年3月17日	裏の外構のイメージをかためる！	11日
2013年3月20日	ほとんど家が出来たので動画で紹介してみた	9日
2013年3月23日	うちの登記費用は○○万○○○○円ですた	5日
2013年3月28日	おうちの引き渡しまであと１日　追加費用の金額がわかる	1日
2013年3月29日	家の引き渡し　玄関の鍵をもらう	0日
2013年4月3日	前年の固定資産税を払う	5日
2013年4月6日	ネットとガスが開通	8日
2013年4月8日	初めての階段掃除	10日
2013年4月12日	外構工事１日目	14日
2013年4月14日	自分でトイレットペーパーホルダーをつける	16日
2013年4月16日	外構工事２日目	18日
2013年4月17日	初めてHIコンロを使ってみる	19日
2013年4月17日	外構工事３日目	19日
2013年4月18日	バスルーム公開	20日
2013年4月19日	外構工事４日目	21日
2013年4月20日	外構工事５日目	22日
2013年４月22日	外構工事６日目	24日
2013年４月24日	外構工事７日目	26日
2013年4月27日	外構工事８日目	29日
2013年4月29日	外構工事９日目	31日
2013年4月29日	DIYで　風よけと棚を作りはじめる	31日
2013年5月3日	DIYで　ちと凹む	35日
2013年5月3日	外構工事１０日目	35日
2013年5月7日	外構工事　一旦終了	39日
2013年5月10日	うちの町会費の件	42日
2013年5月11日	裏口のシャッターが　ほぼ完成する	43日
2013年5月12日	DIYで　裏口のペラペラのドアをつける	44日