【VBA(六)：操作单元格对象2】【将数据拆分为多表（筛选）+Inputbox函数+Msgbox函数+小结】

最新推荐文章于 2026-04-01 19:00:00 发布
原创 最新推荐文章于 2026-04-01 19:00:00 发布 · 1.1k 阅读 · 9 ·
本内容遵循CC 4.0 BY-SA版权协议
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
收录于
VBA

当前文章被收录于：

VBA
15 篇文章 40 人学习

Visual Basic for Applications(VBA)是Visual Basic的一种宏语言，是微软开发出来在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。

订阅专栏 查看详情
本文详细介绍了如何使用VBA进行数据拆分，创建新工作表以避免重名和处理重复数据。同时，深入探讨了InputBox和MsgBox函数的应用，包括代码示例和运行效果展示。

上一篇：【VBA(五)：操作单元格对象】【单元格+单元格对象常用操作+小结及练习】

文章目录

将数据拆分为多表（筛选）

前提有新建的表

在这里插入图片描述

新建表（避免重名）

原数据
在这里插入图片描述
代码
在这里插入图片描述

效果图（运行多次也不会新建表和报错）
在这里插入图片描述

新建表（原数据有重复的）

在这里插入图片描述

代码
在这里插入图片描述
效果图
在这里插入图片描述

案例

根据部门列创建工作表
在这里插入图片描述

代码（d与4关联，根据哪列筛选都可以改）

在这里插入图片描述

效果图
在这里插入图片描述

Inputbox函数

InputBox是Visual Basic和VBS中的函数，功能是弹出一个对话框，在其中显示提示，等待用户输入文字并按下按钮，然后返回用户输入的文字。该函数与MsgBox函数类似，区别就是InputBox函数用于简单地接受用户输入的一些文本。
代码
在这里插入图片描述
效果图
在这里插入图片描述
在这里插入图片描述

Msgbox函数

MsgBox是Visual Basic和VBS中的一个函数，功能是弹出一个对话框，等待用户单击按钮，并返回一个Integer值表示用户单击了哪一个按钮。
“MsgBox”即为“Message Box”的缩写，在英语中意为“信箱”。

代码
在这里插入图片描述
效果图
在这里插入图片描述

小结

Msgbox “OK”
i= Inputbox(“请输入”)
批量处理表，注意重名问题。

下一篇：【VBA(七)：事件与典型应用案例】【关于单元格格式设置中的WITH语句+事件与典型应用案例+小结与练习】

标签
#excel #vba
VBA 自定义对话框
叶雪青的博客
08-17 4414
今天主要讲讲自定义对话框这一章，中间鸽了一小部分的函数过程，WindowsAPI、连接数据库的内容还没学，后续再更新。 一、inputbox inputbox输入框之前已经用过了，但是除了之前VBA中用的inputbox之外，还有Application对象中的方法，这两个是不一样的。 ①VBA中的inputbox函数用法： Dim str As String str = InputBox("请随便输入一串字符串") VBA中的inputbox函数完整方法： InputBox.
vba：inputbox
pgymeitianjinbu的博客
04-19 1570
'inputbox函数与方法'1.区别一：外观区别'InputBox 函数'在一对话框来中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的 String。'Application.InputBox 方法'显示一个接收用户输入的对话框。返回此对话框中输入的信息。sr = InputBox("请输入内容！") '函数sr = Application.InputBox("请输入内容！") '方法End Sub'-----'2.参数区别。
中的inputbox_VBA中实现高级筛选
weixin_42523718的博客
01-14 848
实现excel里手动操作高级筛选全部动作的代码化。Sub Advanced_filter() Dim rngData As Range, rngCriteria As Range, rngResult As Range Dim i As Integer Dim temp As String i = Range("a" & Rows.Count).E...
VBA EXCEL 对象操作 - 新建工作表
热门推荐
navy2009的专栏
02-28 1万+
From  http://club.excelhome.net/forum.php?mod=viewthread&tid=470603&page=23#pid3118642 新建一个工作表（Worksheet)，要调用工作表(Worksheet对象）的Add方法（可以建制一个新建工作表的宏来查看相关的代码）。         如果我们想在当前工作表中新建一个工作表，代码可以
【excel vba】拆分表格
kyra1997的博客
07-30 1892
拆分表格并保存函数Application主程序对象Open 打开文件Add 新建工作簿练习拆分表存储成文件利用筛选分离表格内容 函数 Application主程序对象 application.displayalsert=false 表示不要弹窗 Open 打开文件 eg ： application screenupdating=false//不要屏幕更新 Workbooks. Open Filename:="d:\data\1.xlsx" activeworkbook.sheets(1).range("a1
中的inputbox_王佩丰老师vba课程笔记 第八讲--在VBA中使用函数
weixin_39662955的博客
01-06 700
第七讲 事件与典型应用案例一、with 语句例：点中单元格，单元格所在一行变为黄色Sub 改颜色()Cells.Interior.Pattern = xlNoneSelection.EntireRow.Interior.Color = 65535End Sub还需点击宏还能运行。可以设置一下。双击sheet1进入编程页面。选择worksheet --> selectionchange ‘选...
统计人专属！统计插件006→VBA筛选操作（附代码）
ZZZZZZ17666的博客
03-25 581
接上一期，下面我为大家写一个VBA筛选操作，比如大家经常要用到取消筛选或筛选状态操作。常规操作，在“数据区域”任意位置（不要在空白处），点击筛选状态，它会实现和系统功能区一样的筛选；另外就是弹窗筛选，当常规操作不能实现时，它会弹窗要求你输入要筛选的行号，会实现整行筛选！strRow = InputBox("请输入要筛选的行号:", "默认为第一行", "1")--↓--重置筛选--代码开始。--↑--重置筛选--代码结束。--↓--筛选状态--代码开始。--↑--筛选状态--代码结束。
【VBA 交互性】之 InputBox 方法简介和场景应用
qq_33764107的博客
05-18 468
VBA中的InputBox函数是一种用于用户与程序交互的工具，允许用户在程序运行过程中输入文本或数字，从而达到影响程序的执行，提供程序的灵活性。
VBA横向筛选
qq_38356680的博客
12-25 633
对Excel进行横向筛选，VBA程序一键、一键完成
中有atoi函数吗_Excel VBA编程中有哪些常用的英文词汇儿
weixin_33327330的博客
12-20 434
……HI，大家好，我是星光，总有朋友问学习VBA和英语好坏有关系吗？这问题让俺怎么回答呢，说没关系也有关系，说有关系其实也没多大关系……VBA只是一个非常初级的编程语言，甚至在很多人眼里算不上编程语言——而很多C/JAVA专业的程序员，英语也是一窍不通七窍冒烟的。瞧瞧你公司里的那些IT程序员，半天也就憋出一句好啊油唉没烦，说他们英语好，你信呐？著名VBA编程人士，罗刚军先生，初中文化水平...
判断integer是否为null_VBA代码解决方案的第55讲：VBA代码中，如何判断是否为数值...
weixin_39705193的博客
12-06 796
大家好，我们今日继续讲解VBA代码解决方案的第55讲内容：VBA代码中，如何判断是否为数值。本节的利用价值非常大，在INPUTBOX中，在窗口的控件中，这种判断会随处可见，这里需要大家注意点是在VBA中和EXCEL中判断数值的函数是不一样的，大家是否还记得在EXCEL函数中利用的函数吗？对了，是ISNUMBER()函数，这个函数在EXCEL中可以判断单元格是否为数值，或者判断数组的值，但是在VBA...
Excel中VBA编程学习笔记（五）
数据之道
11-25 874
  28、程序运行时间统计 Sub test()     begin_time = Timer     For i = 1 To 1000         For j = 1 To 10000             x = x + 1 * 2         Next     Next     end_time = Timer     MsgBox "运行用时" & ...
EXCEL VBA 常用语句
sakura_BAI的博客
07-10 3669
这是我在EXCEL HOME 里面找的。原创人不知道了。所以写个转载。
05_筛选标记5.0版最终版 多选项文件夹批量操作
pigerr的博客
02-01 178
1.Public 可以声明公共变量2.Inputbox 对话输入框(默认返回值为文本格式)3.label1: 标签操作 常配合GoTo标签作跳转使用4.vbCrLf和 chr(13) & chr(10)回车换行操作case 1case 2...case ElseEnd Select6.Floder 文件夹操作7.set 变量 = nothing 释放内存变量8.VBProject.VBComponents 工程窗体组件9.VBA.Split(Town, ",") '---拆分数组。
VBA进阶
你不要担心
08-19 1373
一、事件过程 二、操作界面 三、调试与优化
零基础秒懂！VBA IsNumeric 万能用法，5 个案例直接套用
最新发布
wei1019的专栏
04-01 120
补齐知识盲区、轻松杜绝运行 Bug
20190118_xlVBA多表合并
weixin_30690833的博客
01-18 260
Public Sub simple() Set wb = ActiveWorkbook Set sht = ActiveSheet msg = MsgBox("程序准备清除活动工作表内容？按是确认，按否退出！", vbYesNo, "Tips") If msg = vbNo Then Exit Sub msg = MsgBox("请您确认是否对...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值