Excel使用VBA程序自动换行

参照图表，当在Excel单元格输入数据后，会自动跳至右侧邻接单元格，填充至指定的最后一格后又无缝转入下一行的第一个单元格，提升数据录入效率。以下将演示如何运用VBA编程技术来实现这一自动化操作。

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

2、 在VBA编辑器的“Sheet1”代码窗口里边输入以下程序代码：Private Sub Worksheet_Change(ByVal Target As Range)Dim sro, sco, ro, coOn 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 IfEnd IfApplication.EnableEvents = True ? ?"恢复代码只执行一次End Sub