如下图所示，Excel单元格输入完数据后，自动向右跳转至下一个单元格，到达指定的最后一个单元格时自动跳转至下一行指定的第一个单元格，这样可以快速的录入数据。下面就分享一下如何使用使用VBA程序实现该功能。工具/原料more计算机Excel 2010方法/步骤1/4分步阅读

打开Excel表格后，在工作表标签（Sheet1）上面单击右键，选择“查看代码”。

2/4

在VBA编辑器的“Sheet1”代码窗口里边输入以下程序代码：

Private Sub Worksheet_Change(ByVal Target As Range)

Dim sro, sco, ro, co

On Error Resume Next 忽略运行时可能出现的错误

Application.EnableEvents = False 开启代码只执行一次

Set mysheet1 = ThisWorkbook.Worksheets(Sheet1)

sro = Selection.Row 选择单元格所在的行

sco = Selection.Column 选择单元格所在的列

If sro 1 And sco 1 And sco = 10 Then 如果所选的单元格为第二行起，B~J列之间，则

ro = Target.Row 获取改变单元格所在的行

co = Target.Column 获取改变单元格所在的列

If co = 10 Then 如果已经到达J列，则

mysheet1.Cells(ro + 1, 2).Select 换行，选择下一个单元格

End If

If co 1 And co 10 Then 如果只在B-I列，则

mysheet1.Cells(ro, co + 1).Select 选择右边单元格

End If

End If

Application.EnableEvents = True 恢复代码只执行一次

End Sub

3/4

程序代码、思路解读：

（1）“Private Sub Worksheet_Change(ByVal Target As Range)”是在单元格内容改变时才会自动里边的程序，“Target”是对单元格进行追踪；

（2）先判断所选的单元格是否在要处理的范围内，再决定是否要执行自动换行，这样既可以提高运行速度，又不影响超出该范围的单元格的正常操作。

4/4

在指定区域的单元格里边输入内容时，单元格会根据所需换行。（只有改变单元格内容，按回车键才会向右选择单元格，否则将会向下选择）

注意事项

个人经验，经供参考，不足之处，敬请谅解。

EXCEL编程语言