CSVファイルの分割についてよい方法がありましたらご提案をお願いします。

VBA で分割。

Excel2003 で確認しています。

Sub exec()
    Dim i,j,k As Integer
    Dim s As String
    
    For i = 1 To 81
        j = 1
        Open CStr(i) & ".csv" For Output As #1
        Do While Cells(j, 1) <> ""
            If Cells(j, 101) = i Then
                s = ""
                For k = 1 To 100
                    s = s & Cells(j, k) & ","
                Next k
                Print #1, s & Cells(j, 101)
            End If
            j = j + 1
        Loop
        Close #1
    Next i
End Sub

wshで書いたので貼っておきます。

使い方は、メモ帳か何かで下記をコピペして、最初の行のファイル名（今はall.csvになってる）を対象のcsvファイルの名前に変えて、csvファイルと同じフォルダに、(好きな名前).vbsという名前で保存。あとは保存したファイルをダブルクリックするだけです。

やってる事はnattowさんとだいたい一緒で、違うのは行末が",1"、",2"で終わってるかどうかで判定してるところです。

Const inputFileName = "all.csv"
Const endOfNumber = 81

Dim fso, sh, ifile, i
Set fso = CreateObject("Scripting.FileSystemObject")
Set sh = CreateObject("WScript.Shell")
Set ifile = fso.GetFile(sh.CurrentDirectory & "\" & inputFileName)

For i = 1 To endOfNumber
    Dim re, itsm, ots
    Set its = ifile.OpenAsTextStream(1) ' ForReading
    Set ots = fso.CreateTextFile(i & ".csv", True)
    Set re = New RegExp
    re.Pattern = "," & i & "$"
    While Not its.AtEndOfStream
        Dim l
        l = its.ReadLine()
        If re.Test(l) Then
            ots.WriteLine(l)
        End If
    Wend
    ots.Close
    its.Close
Next

EXCELじゃないですが、awk だったらこんなカンジです。

awk自体はhttp://www.vector.co.jp/soft/dos/util/se000208.htmlあたりからダウンロードできます。

 awk -F"," '{print > ( $101 ".csv" )}' INPUT_FILE.csv

• 「INPUT_FILE.csv」は入力ファイル名です。適当に変更してください。
• 「$101」というのはCW列が101個目の列と言う意味です。（C列なら「$3」となる）