3000行くらいあるCSVファイルを100行ずつ別ファイルに保存する作業をしています。エクセルで100行をドラッグで選択＞切り取り＞シートを新規作成し貼り付け＞保存 という手順でやっているのですが、もっと効率的な方法はないでしょうか？（たとえば100行を一発で指定する方法、CSVファイルを指定行数ごとに分割する方法、ソフトなど）よろしくお願いします。

VBAなどのマクロで処理するといった方法は駄目なのでしょうか？

この程度の処理ならば簡単なものでできるはずですが。

ExcelVBA組まれてみてはいかがでしょうか？全作業自動化できると思います。

CSVファイルといっても結局テキストファイルです。テキストファイルを指定行数ずつに分割するユーティリティを利用してはどうでしょうか。(URLは一例)

エディタでもマクロが利用できるものなどで分割可能だと思います。

CSVファイルをメモ帳で開いて（CSVファイルなので、開くときにファイルの種類を「すべてのファイル」にしないと見えませんが）、

100行ずつ切り取り

↓

メモ帳を新規作成

↓

貼り付け

↓

名前をつけて保存して閉じる

↓

最初へ戻る

という方法じゃだめですか？

Windowsのバージョンによっては、メモ帳が貧弱で大きなファイルを読み込めないので、フリーのテキストエディタをインストールしたほうが作業がはかどると思います。

無料のテキストエディタ ”EdLeaf” をご紹介いたします。

私は普段は EmEditor v3 を愛用しているのですが、有料なので・・・。

EdLeafのダウンロードはこちらからどうぞ。

VBSなりawkなりを使えば、ファイルを1行読んで、そのまま別のファイルへ出力して、100行ごとに切り替えればいいわけなので、簡単に実現できると思いますが、とりあえずフリーでURLのようなソフトもあります。

単純に検索かけたらこんなん出てきましたよ。

UNIX由来のユーティリティで ”head”, ”tail”コマンドを使って、指定行数を切り出します。

１．最初の100行 # head -100 元のファイル.CSV > 分割後001.csv

２．次の100行 # head -200 元のファイル.CSV | tail -100 > 分割後002.csv

３．次の100行 # head -300 元のファイル.CSV | tail -100 > 分割後003.csv

のようにします。

テキストファイルを扱う場合、UNIX上で取り扱うととっても簡単にできます。

MS-DOSで動く head, tailです。

WindowsでUNIXの環境を実現するCygwinです。

基本ユーティリティとして、head,tailが含まれている。（はずです）

　Sub オートシェイプ1_Click()

Dim i, t

Open ”ReadFileName ” For Input As #1

Open ”WriteFileName” For Output As #2

Do Until EOF

For i = 1 To 100

Line Input #1, t

Print #2, t

Next i

Loop

End Sub

エクセル上にオートシェイプの図形を何か適当に貼り付けて、右クリック-マクロ-新規作成で、こんな風にしてはどうでしょう？ＥＯＦの検出が違ったかな?

GUIでできたほうがよいならこれで可能です。

ただ、行数指定で2分割しかできないので

１．100行目までと101行目からに分割。→二分割_前.csvと二分割_後.csv

２．二分割_後.csvを100行目までと101行目からに分割。→二分割_後二分割_前.csvと二分割_後二分割_後.csv

３．・・・

と繰り返す必要がありますが。