釣りの記録、みなさんどうやって管理していますか？
釣った魚をエクセルのシートごとにを振り分けていくと、
こんな釣簿になりますよね？
そんで、あとから
１個ずつ魚ごとエクセルにすればよかった。。。
私はずっと「釣簿」をExcelでつけてきたのですが、シートが増えるたびに「1枚ずつ分けて保存できたらもっと見やすいのに…」と感じるようになりまして、、、
手作業で１個１個コピペせずに簡単に分けられる方法を調べたらあったんですよ！！
そこで今回調べた、Excelでシートを1つずつ別ファイルに分ける方法がラクだったので、そのやり方を紹介します！
誰でも簡単にできる手順で試してみてください！
エクセルのシートを１個ずつのエクセルに分けた方法
さっそくエクセルをわけていきます。
まず、シートをバラバラのエクセルファイルを選択して
エクセルを開いたら Altキー を押しながら F11キーを押すと
したの画像の画面が出ます。
ウィンドウの上のところに Microsoft Visual Basic for Applications って
表示されてのが開いていればOK
そうしたら、
Microsoft Visual Basic for Applications ってウィンドウの
「 挿入 」から「 標準モジュール(M) 」をクリック
クリックすると下の画面が開かれます。
この白いスペースに下の英語の文字列をコピーして貼り付けてください。
Sub sheets_save()
For Each シート In Worksheets
シート.Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & シート.Name
ActiveWorkbook.Close
Next シート
End Sub
貼り付けたらこんな感じ↓↓↓↓
コピペしたら
「 実行(R) 」を開いて「 Sub/ユーザーフォームの実行 F5 」をクリックしたら完了です。
画面がパカパカパカ～ってなって
エクセルファイルが作られるのでチョットびっくりするかもしれません。
エクセルの入っていたフォルダを確認すると、
元の釣簿のほかに、魚の名前ごとに分けられたエクセルファイルありました～
シート毎にバラバラにするのに手作業では大変ですが
この方法でかんたんにエクセルファイルに分けられますのでチャレンジしてみてくださいね！
最後まで読んでくださりありがとうございます。
釣簿に限らず、お仕事でも使ってみてください！