EXCELで文字の分割について教えてください！

質問

いつもお世話になります。
また、ご教示お願いします。

A1,A4,A7,A10,G1,G4,G7,G10にフォントサイズが１１で入力されている文字列（日本語のみ）があります。

１　９文字の場合はそのままで
２　１０文字以上の場合は
１０文字目から１８文字目はB2,B5,B8,B11,H2,H5,H8,H11に分割
３　１９文字以上の場合はフォントサイズを１０にして１２文字目まではA1,A4,A7,A10,G1,G4,G7,G10で１３文字目からはB2,B5,B8,B11,H2,H5,H8,H11に分割

といった上記の条件を満たすようなマクロというのはどのように記述したらよろしいのでしょうか？
よろしくお願いします。

回答No.1

ham_kamo · ベストアンサー

マクロを作ってみました。こんな感じでしょうか。

Sub 文字列分割()
　Const RngStr As String = "A1,A4,A7,A10,G1,G4,G7,G10"
　Dim Rng As Variant
　Dim R As Range
　Dim i As Integer
　Rng = Split(RngStr, ",")
　For i = LBound(Rng) To UBound(Rng)
　　Set R = Range(Rng(i))
　　Select Case Len(R.Value)
　　　Case Is > 18
　　　　R.Offset(1, 1).Value = Right(R.Value, Len(R.Value) - 18)
　　　　R.Value = Left(R.Value, 18)
　　　　Union(R, R.Offset(1, 1)).Font.Size = 10
　　　Case Is > 9
　　　　R.Offset(1, 1).Value = Right(R.Value, Len(R.Value) - 9)
　　　　R.Value = Left(R.Value, 9)
　　End Select　
　Next
End Sub

お礼

いつもありがとうございます。
おかげさまで出来ました。