如何在Excel中输入后自动移动到下一个单元格？

在本文中，我将介绍在Excel中无需按Enter键即可自动将光标移动到下一个单元格以输入序列号的技巧。

使用VBA实现输入4位数字后自动移动到右侧下一个单元格而无需按Enter键

使用Kutools for Excel自动填充4位数序列

使用VBA实现输入4位数字后自动移动到右侧下一个单元格而无需按Enter键

以下VBA代码可以帮助您在输入4位数字后自动移动到右侧下一个单元格，而无需按Enter键。

1. 按 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 单击 插入 > 模块，并将以下VBA代码粘贴到模块脚本中。参见截图：

VBA：输入4位数字后自动移动到右侧下一个单元格

Sub FourCharEntry1()
'UpdatebyExtendoffice20160614
    Dim xStr As String
    Dim I As Integer
    Dim K As Integer
    xStr = Application.InputBox("Enter string", "Kutools for Excel", , , , , , 2)
    K = 0
    Application.ScreenUpdating = False
    For I = 1 To Len(xStr) Step 4
        ActiveCell.Offset(0, K) = "'" & Mid(xStr, I, 4)
        K = K + 1
    Next
    Application.ScreenUpdating = True
End Sub

3. 按下 F5 键运行代码，然后会弹出一个 Kutools for Excel 对话框，您可以在其中输入序列号且无需任何分隔符。参见截图：

4. 单击 确定。现在每4位数字从左到右被放置在一个单元格中。

提示：如果您想在单元格中输入5位、6位……数字，可以将代码中的4更改为5、6或其他数字。

使用Kutools for Excel自动填充4位数序列

借助实用工具 Kutools for Excel，您可以使用其 插入序列号 功能自动填充一系列数字到某个区域，而无需按Enter键。

免费安装 Kutools for Excel 后，请按照以下步骤操作：

1. 选择要填充序列的一列或一行，然后单击 Kutools > 插入 > 插入序列号。参见截图：

2. 在 插入序列号 对话框中，单击 新建 以展开对话框。参见截图：

3. 然后根据需要指定序列。参见截图：

4. 单击 添加 > 填充区域，然后所选区域将自动填充序列号。

提示：使用 插入序列号 功能，您还可以插入重复的序列。勾选 结束数字 选项，在右侧文本框中输入所需的结束数字，然后序列号将每隔10个数字重复填充。参见截图：