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

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

输入4位数字后自动移动到下一个右单元格，而无需按VBA的Enter键

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

输入4位数字后自动移动到下一个右单元格，而无需按VBA的Enter键

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

1。 按 Alt + F11键 打开钥匙 Microsoft Visual Basic应用程序 窗口。

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。 点击 OK。 现在，每4位数已从左到右放置在一个单元格中。

Tips:：如果要在单元格中输入5位数，6位数…，则可以在代码中将4更改为5、6或其他。

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

与 Kutools for Excel –方便的工具，您无需按回车键即可自动将序列号填充到一定范围 插入序列号 效用。

后 免费安装 Kutools for Excel，请执行以下操作：

1.选择要填充系列的列或行，然后单击 库工具 > 插页 > 插入序列号。 看截图：

2.在 插入序列号 对话框中，单击 全新 展开对话框。 看截图：

3.然后根据需要指定系列。 看截图：

4。 点击 添加 > 填充范围，则所选范围已自动填充序列号。

Tips:：与 插入序列号 实用程序，也可以插入重复的序列。 检查一下 结束号码 在对话框中的“选项”中，在右侧的文本框中输入所需的结束号，然后将每10个数字重复填充序列号。 看截图：