跳到主要内容

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

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

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

使用 Kutools for Excel 自动填充 4 位数字系列 好主意3


箭头蓝色右气泡 输入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

doc自动移至下一个单元格1

3。 按 F5 运行代码的关键,还有一个 Kutools for Excel 对话框弹出,您可以在其中输入序列号而无需任何分隔符。 看截图:
doc自动移至下一个单元格2

4。 点击 OK。 现在,每4位数已从左到右放置在一个单元格中。
doc自动移至下一个单元格3

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


箭头蓝色右气泡 使用 Kutools for Excel 自动填充 4 位数字系列

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

Kutools for Excel, 与超过 300 方便的功能,使您的工作更加轻松。 

免费安装 Kutools for Excel,请执行以下操作:

1.选择要填充系列的列或行,然后单击 库工具 > 插页 > 插入序列号。 看截图:
doc自动移至下一个单元格4

2.在 插入序列号 对话框中,单击 全新 展开对话框。 看截图:
doc自动移至下一个单元格5

3.然后根据需要指定系列。 看截图:
doc自动移至下一个单元格6

4。 点击 地址 > 填充范围,则所选范围已自动填充序列号。
doc自动移至下一个单元格7

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

最佳办公生产力工具

🤖 Kutools 人工智能助手:基于以下内容彻底改变数据分析: 智能执行   |  生成代码  |  创建自定义公式  |  分析数据并生成图表  |  调用 Kutools 函数...
热门特色: 查找、突出显示或识别重复项   |  删除空白行   |  合并列或单元格而不丢失数据   |   不使用公式进行四舍五入 ...
超级查询: 多条件VLookup    多值VLookup  |   跨多个工作表的 VLookup   |   模糊查询 ....
高级下拉列表: 快速创建下拉列表   |  依赖下拉列表   |  多选下拉列表 ....
列管理器: 添加特定数量的列  |  移动列  |  切换隐藏列的可见性状态  |  比较范围和列 ...
特色功能: 网格焦点   |  设计图   |   大方程式酒吧    工作簿和工作表管理器   |  资源库 (自动文本)   |  日期选择器   |  合并工作表   |  加密/解密单元格    按列表发送电子邮件   |  超级筛选   |   特殊过滤器 (过滤粗体/斜体/删除线...)...
前 15 个工具集12 文本 工具 (添加文本, 删除字符,...)   |   50+ 图表 类型 (甘特图,...)   |   40+ 实用 公式 (根据生日计算年龄,...)   |   19 插入 工具 (插入二维码, 从路径插入图片,...)   |   12 转化 工具 (小写金额转大写, 货币兑换,...)   |   7 合并与拆分 工具 (高级组合行, 分裂细胞,...)   |   ... 和更多

使用 Kutools for Excel 增强您的 Excel 技能,体验前所未有的效率。 Kutools for Excel 提供了 300 多种高级功能来提高生产力并节省时间。  单击此处获取您最需要的功能...

产品描述


Office Tab 为 Office 带来选项卡式界面,让您的工作更加轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50%,并减少数百次鼠标单击!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, how do I auto drop to the next cell without using 'enter' after a 1 digit number (not in sequence)? I'm working in a university and I'm handling 10,000 students for their entries. Hope you could help me with this :) Thanks!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations