Excel 自動改行 マクロ
Excelの自動改行ﾓﾄﾞｷを行うマクロを別の人のブログを参考に簡単なアレンジをして作ってみました。
仕様
・指定範囲内のセルに任意の文字を入力すると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
