vba csv 를 나누기 변환...펌

Option Explicit

Sub lastColumn_To_Text()

    Dim s As Long
    Dim colsCnt As Long
    Dim c As Long
   
    Application.ScreenUpdating = False
   
    For s = 1 To Sheets.Count
   
        With Sheets(s).UsedRange
            colsCnt = .Columns.Count
            For c = 1 To colsCnt
                .Columns(c).TextToColumns Destination:=.Columns(c).Cells(1), DataType:=xlDelimited, _
                TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
                Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
                :=Array(1, 2), TrailingMinusNumbers:=True
            Next c
        End With
    Next s
  
End Sub