釣簿のエクセル内のシートを1個ずつのエクセルに分けた方法

釣簿をパソコンで!

 

釣った魚をエクセルのシートごとにを振り分けていくと、

こんな釣簿になりますよね?

 

そんで、あとから

 

1個ずつ魚ごとエクセルにすればよかった。。。

ってなるわけですよ…

 

でもね

実は、手作業で1個1個コピペせずに簡単に分けられるんですよ。

 

エクセルのシートを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 」をクリックしたら完了です。

 

画面がパカパカパカ~ってなって

エクセルファイルが作られるのでチョットびっくりするかもしれません。

 

 

エクセルの入っていたフォルダを確認すると、

元の釣簿のほかに、魚の名前ごとに分けられたエクセルファイルありました~

 

シート毎にバラバラにするのに手作業では大変ですが
この方法でかんたんにエクセルファイルに分けられますのでチャレンジしてみてくださいね!

 

 

鯵彩
鯵彩

最後まで読んでくださりありがとうございます。
釣簿に限らず、お仕事でも使ってみてください!

 

タイトルとURLをコピーしました