日々更新

前回のＣＳＶ分割は、最後の文字が配列に入らないバグがあったり、ループごとにRedimは遅いから１回にまとめたかったりしたので完全版作ったよ。

配列数を最初に決めているのがミソ。

'  【機  能】 CSVデータを分割する
'
'  【形  式】 CsvDismantle
'
'  【入出力】 sData     : (I) CSVデータ
'             sKugiri   : (I) 区切り文字
'
'  【戻り値】 CSVデータ分解後配列
Public Function CsvDismantle(ByVal sData As String, ByVal sKugiri As String) As String()
    
    Dim vRetData() As String    '区切り文字毎の配列
    
    '-------------------------------------------------------------------------
    '配列数の計算
    '-------------------------------------------------------------------------
    Dim lKugiriCnt As Long      '区切り文字の数格納用
    
    '（文字長 － 区切り文字を無くした文字長 ＝ 区切り文字数）
    lKugiriCnt = LenB(StrConv(sData, vbFromUnicode)) - LenB(StrConv(Replace(sData, sKugiri, ""), vbFromUnicode))
    '区切り文字数＋１が配列の個数
    ReDim vRetData(lKugiriCnt + 1)
   
    
    '-------------------------------------------------------------------------
    '実行部
    '-------------------------------------------------------------------------
    Dim lPos As Long            'csvデータ探索用添字ワーク
    Dim lPosNext As Long        'csv分解データ格納用添字ワーク
    
    Dim ii As Long  'ループカウンタ
    Dim iMidLen As Integer
    lPos = 1
    For ii = LBound(vRetData) To UBound(vRetData) - 1
        
        lPosNext = InStr(lPos, sData, sKugiri, vbBinaryCompare)
        
        If lPosNext <> 0 Then
            vRetData(ii) = Mid(sData, lPos, lPosNext - lPos)
        Else
            vRetData(ii) = Mid(sData, lPos)
        End If

        Debug.Print "vRetData(" & ii & "):[" & vRetData(ii) & "]"
        
        lPos = lPosNext + 1
        
    Next ii
    CsvDismantle = vRetData

End Function

　
　
　
配列の数は 呼び出し元に返す必要もなくって、呼び出し元ではUBoundで確認できるよ。
こんなかんじ。

    Dim str As String
    Dim arr() As String
    str = "あいう,ｂｂｂ,cd"
    arr = CsvDismantle(str, ",")
    Debug.Print UBound(arr)