世界は広い!

主に役に立った(個人的)情報から日常の記録に。

Excel 自動改行 マクロ

Excelの自動改行モドキを行うマクロを別の人のブログを参考に簡単なアレンジをして作ってみました。

 

仕様

・指定範囲内のセルに任意の文字を入力すると1文字ごと改行される

=1つのセルに1文字入力される

 

 Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Row <= 50 And Target.Column <= 10 Then
Call 改行
End If
Application.EnableEvents = True
End Sub
Sub 改行()
mojisu = 1
a = Range("ae7:cb205") //範囲変更
For c = 1 To UBound(a, 2)
For r = 1 To UBound(a, 1)
t = a(r, c)
If Len(t) > mojisu Then
a(r, c) = Left(t, mojisu)
a(r + 1, c) = Mid(t, mojisu + 1) & a(r + 1, c)
End If
Next r
Next c
Range("ae7:cb205") = a //範囲変更
End Sub

 

stabucky.com