エクセル入力で自動改行する方法

横に１０セル分入力したら自動的に次の行に移動するマクロです。こんな感じです。

Enterキーで右のセルに移動^*しますが、Ｊ列でEnterキーを押すと次の行のＡ列に入力セルがに移動します。

(＊Excelのオプションで「Enterキーを押した後にセルを移動する」方向を右に設定)

大量の数値データを入力する時などに便利かと思います。

ソースコードです。

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        If (Target.Column <= 10) Then Exit Sub
        Cells(Target.Row + 1, 1).Activate
    End Sub

2行目の「１０」を変更すると折り返す列が変わります。