strRegExp(1) = "^(\(?[0-9]+\)|\(?[a-z]+\)|\(?[A-Z]+\)|\(?[ア-ン]+\))(.*)$"
    strRegExp(2) = "^([a-z]{1,2})(|[^a-z].*)$"
    strRegExp(3) = "^([ア-ン])(|[^ア-ン].*)$"
    
    With ActiveSheet
        For iRow = 1 To .Cells.SpecialCells(xlCellTypeLastCell).Row
            Set cel = .Cells(iRow, 1).End(xlToRight)
            If cel.Column < Columns("AQ").Column Then
                strTmp = LTrim(cel.Value)
                For i = 1 To 3
                    regEx.Pattern = strRegExp(i)
                    If regEx.Test(strTmp) Then
                        cel.NumberFormatLocal = "@"  '设置单元格式为文本
                        If cel.Offset(0, 1).Value = "" Then
                            cel.Value = regEx.Replace(strTmp, "$1") & " "
                            cel.Offset(0, 1).NumberFormatLocal = "@"  '设置单元格式为文本
                            cel.Offset(0, 1).Value = regEx.Replace(strTmp, "$2")
                        Else
                            cel.Value = RTrim(cel.Value) & " "
                        End If

                        With cel.Font
                            .Name = "ＭＳ Ｐ明朝"
                            .Size = 10.5
                        End With
                        cel.HorizontalAlignment = xlRight
                        Exit For
                    End If
                Next
            End If
        Next
    End With