如下图所示，Excel单元格输入完数据后，自动向右跳转至下一个单元格，到达指定的最后一个单元格时自动跳转至下一行指定的第一个单元格，这样可以快速的录入数据。下面就分享一下如何使用使用VBA程序实现该功能。
工具/原料
计算机
Excel2010
方法/步骤
1、打开Excel表格后，在工作表标签（Sheet1）上面单击右键，选择“查看代码”。
2、在VBA编辑器的“Sheet1”代码窗口里边输入以下程序代码：PrivateSu水瑞侮瑜bWorkshee墉掠载牿t_Change(ByValTargetAsRange)Dimsro,sco,ro,coOnErrorResumeNext'忽略运行时可能出现的错误Application.EnableEvents=False'开启代码只执行一次Setmysheet1=ThisWorkbook.Worksheets("Sheet1")sro=Selection.Row'选择单元格所在的行sco=Selection.Column'选择单元格所在的列Ifsro>1Andsco>1Andsco<=10Then'如果所选的单元格为第二行起，B~J列之间，则ro=Target.Row'获取改变单元格所在的行co=Target.Column'获取改变单元格所在的列Ifco=10Then'如果已经到达J列，则mysheet1.Cells(ro+1,2).Select'换行，选择下一个单元格EndIfIfco>1Andco<10Then'如果只在B-I列，则mysheet1.Cells(ro,co+1).Select'选择右边单元格EndIfEndIfApplication.EnableEvents=True'恢复代码只执行一次EndSub
3、程序代码、思路解读：（1）“PrivateSubWorksheet_Change(B鲻戟缒男yValTargetAsRange)”是在单元格内容改懈吡赜痖变时才会自动里边的程序，“Target”是对单元格进行追踪；（2）先判断所选的单元格是否在要处理的范围内，再决定是否要执行自动换行，这样既可以提高运行速度，又不影响超出该范围的单元格的正常操作。
4、在指定区域的单元格里边输入内容时，单元格会根据所需换行。（只有改变单元格内容，按回车键才会向右选择单元格，否则将会向下选择）
