[[20181003154002]]　『セル内改行を』（岩田）　ページの最後に飛ぶ

『セル内改行を』（岩田）

質問です。
1行目のセル内改行にされていない日本の文章がずら～っとLT列まであるのですが、それを30文字ずつ、セル内改行を自動的に入れていきたいのですが、どうすればよいのか、困っています。

今の状態ですが、

　　A　　　　　　　　　B　　　　　　　　　　　C
1　あああああああああ　いいいいいいいいいい　ううううううううう

という感じになっているのですが、

これを、

　　A　　　　　　　　　B　　　　　　　　　　　C
1　ああああ　　　　いいいいい　　　　　　　うううう
　あああああ　　　　いいいいい　　　　　　ううううう

という感じにしたいのです。

どなたかご回答願えれば、ありがたいです。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

 VBAで

 Sub test()
     Dim a, i As Long, ii As Long
     With Cells(1).CurrentRegion
         a = .Value
         With CreateObject("VBScript.RegExp")
             .Global = True
             .Pattern = "(.{30})(?=.)"
             For i = 1 To UBound(a, 1)
                 For ii = 1 To UBound(a, 2)
                     a(i, ii) = .Replace(a(i, ii), "$1" & vbLf)
             Next ii, i
         End With
         .Value = a
     End With
 End Sub
（seiya） 2018/10/03(水) 15:59

seiya様　ありがとうございます！！すごいです！！感動しました！！
（岩田） 2018/10/03(水) 16:08

コメント返信：

[ 一覧(最新更新順) ]

[[20181003154002]] 『セル内改行を』（岩田） ページの最後に飛ぶ

[[20181003154002]]　『セル内改行を』（岩田）　ページの最後に飛ぶ