【マクロ・VBA】区切り位置機能を使ってセルを再表示する

Sub SplitTableValues()
    '対象となる表の範囲を指定する
    Dim TargetRange As Range
    Set TargetRange = Range("A1:B5")
    
    '表の値を再表示するためのループ処理
    Dim RowIndex As Long
    For RowIndex = 1 To TargetRange.Rows.Count
        'セルの値を取得し、区切り位置で分割する
        Dim CellValue As String
        CellValue = TargetRange(RowIndex, 2).Value
        Dim SplitValue As Variant
        SplitValue = Split(CellValue, "-")
        
        '分割した値を結合して、再表示する
        Dim NewValue As String
        NewValue = SplitValue(1) & "-" & SplitValue(0)
        TargetRange(RowIndex, 2).Value = NewValue
    Next RowIndex
MsgBox "完了"
End Sub

Sub　区切り位置機能を使ってセルを再表示()
    Dim iColStart       As Integer      '開始列位置
    Dim iColEnd         As Integer      '終了列位置
    Dim i               As Integer      'ループのカウンタ
    Dim iCol            As Integer      '列位置
    Dim iRow            As Long         '行位置
    Dim rInit           As Range        '開始時選択セル
    
    Application.ScreenUpdating = False
    
    Set rInit = Selection
    
    iRow = ActiveSheet.UsedRange.Row
    iColStart = ActiveSheet.UsedRange.Column
    iColEnd = ActiveSheet.UsedRange.Columns.Count + iColStart - 1
    
    '開始列から終了列までループ
    For i = iColStart To iColEnd
        '列選択
        Cells(iRow, i).Columns("A:A").EntireColumn.Select
        
        'データ区切りを指定列に対して実行
        Call Selection.TextToColumns( _
            Destination:=Cells(iRow, i), _
            DataType:=xlDelimited, _
            TextQualifier:=xlDoubleQuote, _
            ConsecutiveDelimiter:=False, _
            Tab:=True, _
            Semicolon:=False, _
            Comma:=False, _
            Space:=False, _
            Other:=False, _
            FieldInfo:=Array(1, 1), _
            TrailingMinusNumbers:=True)
    Next
    
    '開始時セルを再選択
    rInit.Select

    Application.ScreenUpdating = True
MsgBox "完了"
End Sub