跳至主要内容

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

Author: Sun Last Modified: 2025-07-31

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

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

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


arrow blue right bubble 使用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

A screenshot showing the VBA module with code to auto-move to the next cell after input

3. 按下 F5 键运行代码,然后会弹出一个 Kutools for Excel 对话框,您可以在其中输入序列号且无需任何分隔符。参见截图:
A screenshot of Kutools for Excel dialog for entering sequence numbers without separator

4. 单击 确定。现在每4位数字从左到右被放置在一个单元格中。
A screenshot showing 4-digit numbers automatically placed in cells from left to right

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


arrow blue right bubble 使用Kutools for Excel自动填充4位数序列

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

Kutools for Excel配备 AI 🤖,提供超过 300 项实用功能,简化您的任务。

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

1. 选择要填充序列的一列或一行,然后单击 Kutools > 插入 > 插入序列号。参见截图:
A screenshot showing the Insert Sequence Number option in Kutools tab on the ribbon

2. 在 插入序列号 对话框中,单击 新建 以展开对话框。参见截图:
A screenshot of the Insert Sequence Number dialog

3. 然后根据需要指定序列。参见截图:
A screenshot showing series specification options in the Insert Sequence Number dialog

4. 单击 添加 > 填充区域,然后所选区域将自动填充序列号。
A screenshot showing a range filled with sequence numbers using Kutools

提示:使用 插入序列号 功能,您还可以插入重复的序列。勾选 结束数字 选项,在右侧文本框中输入所需的结束数字,然后序列号将每隔10个数字重复填充。参见截图:
A screenshot demonstrating repeated series numbers using the End number option in Kutools

最佳 Office 办公效率工具

🤖 Kutools AI 助手:基于智能执行,彻底革新数据分析 生成代码创建自定义公式分析数据并生成图表调用 Kutools Functions
热门功能:查找、选中项的背景色或标记重复项|删除空行|合并列或单元格且不丢失数据|四舍五入(无公式)...
高级 LOOKUP多条件查找 (VLookup)多值查找 (VLookup)多表查找 (VLookup Across Multiple Sheets)模糊查找 (Fuzzy Lookup)...
高级下拉列表快速创建下拉列表依赖型下拉列表多选下拉列表...
列管理器添加指定数量的列移动列切换隐藏列的可见状态比较区域及列...
特色功能网格聚焦设计视图增强编辑栏工作簿 & 工作表管理器资源库(自动文本)|日期提取合并数据加密/解密单元格按列表发送电子邮件超级筛选特殊筛选(筛选粗体/倾斜/删除线等)...
热门15 大工具集12 款文本工具添加文本删除特定字符等)50+ 种图表 类型甘特图等)40+ 实用公式基于生日计算年龄等)19 款插入工具插入二维码按路径插入图片等)12 种转换工具小写金额转大写汇率转换等)7 款合并与分割工具高级合并行分割单元格等)...更多精彩等你发现
使用 Kutools,支持您的首选语言——包括英语、西班牙语、德语、法语、中文及40 多种其他语言!

用 Kutools for Excel 加速你的 Excel 技能,体验前所未有的高效办公。 Kutools for Excel 提供300 多项高级功能,助您提升效率,节省大量时间。点击此处,获取你最需要的功能...


Office Tab 为 Office 带来标签式界面,让你的工作更加轻松

  • 在 Word、Excel、PowerPoint 启用标签式编辑和阅读
  • 在同一窗口的新标签中打开和创建多个文档,无需新建窗口。
  • 办公效率提升50%,每天帮你减少上百次鼠标点击!