excel VBA 程序自动换行?

来源：百度知道 编辑：UC知道 时间：2024/06/08 00:32:03
怎么实现一行数据记录输入，到达某列自动换行到下一行。

解决办法如下：

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列，再往右就会换行。

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

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列，再往右就会换行。