【SimpleMind】CSVファイルデータを取り込んで使えるか検証

Option Explicit

'データを階層に変換する
Sub ConvertToHierarchy()

    '----------------------------------------------------------------------------
    '【注意】一番上に一番深い階層のデータを置く（一番多いcolumnの取得が必要な為）
    '----------------------------------------------------------------------------

    Dim rangeFruitData As Range                 'フルーツデータを範囲として格納
    Dim maxRow, maxColumn As Long               '最終行、列
    Dim setRow, setColumn As Long               '入力する行、列
    Dim getRow, getColumn As Long               '取得する行、列


    '変数の取得
    maxRow = Cells(Rows.Count, 1).End(xlUp).Row                         '最終行の取得
    maxColumn = Cells(1, Columns.Count).End(xlToLeft).Column            '最終列の取得
    Set rangeFruitData = Range(Range("A1"), Cells(maxRow, maxColumn))   'データを範囲で取得
    
    '新しくシートを作成（作成するとアクティブになるのでselectは入れない）
    Worksheets.Add
    
    '入力する行初期化
    setRow = 1
    
    'データ行をループ
    For getRow = 1 To maxRow
        
        '入力する列初期化
        setColumn = 1
        
        '列をループ
        For getColumn = 1 To maxColumn
                
                '1列目以上だったら2列目に格納する ===> 3行目以降も作成したいなら条件の見直しが必要
                If getColumn > 1 Then
                    setColumn = 2
                End If
                
                '格納するデータが空白以外の場合はセルに格納（空白の場合は行カウントもしない）
                If rangeFruitData(getRow, getColumn) <> "" Then
                    Cells(setRow, setColumn) = rangeFruitData(getRow, getColumn)
                    setRow = setRow + 1
                End If
                
        Next getColumn
    
    Next getRow
    
    'セントラルトピックスを作成（行と列を追加してA1に文字を入れる）
    Columns(1).Insert
    Rows(1).Insert
    Range("A1") = "メイン"

End Sub