excel VBA 程序自动换行?

Question

怎么实现一行数据记录输入，到达某列自动换行到下一行。

Answer 1

是说输入数据，当输入到某列时，自动定位到下一行第一格去吗？

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column > 5 Then
Cells(Target.Row + 1, 1).Select
End If
End Sub

上面是>5，即数据输到E列，再往右就会换行。

Answer 2

解决办法如下：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column > 5 Then
Cells(Target.Row + 1, 1).Select
End If
End Sub

上面是>5，即数据输到E列，再往右就会换行。

Answer 3

选中要进行处理的这个单元格，运行下面的宏。
sub
分行()
x
=
selection.value
for
i
=
1
to
len(x)
step
3
y
=
y
&
mid(x,
i,
3)
&
vbcrlf
next
i
selection.value
=
y
end
sub