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

将数据拆分为多表(筛选)

前提有新建的表

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

新建表(避免重名)

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

效果图(运行多次也不会新建表和报错)
【VBA(六):操作单元格对象2】【将数据拆分为多表(筛选)+Inputbox函数+Msgbox函数+小结】

新建表(原数据有重复的)

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

代码
【VBA(六):操作单元格对象2】【将数据拆分为多表(筛选)+Inputbox函数+Msgbox函数+小结】
效果图
【VBA(六):操作单元格对象2】【将数据拆分为多表(筛选)+Inputbox函数+Msgbox函数+小结】

案例

根据部门列创建工作表
【VBA(六):操作单元格对象2】【将数据拆分为多表(筛选)+Inputbox函数+Msgbox函数+小结】

代码(d与4关联,根据哪列筛选都可以改)

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

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

Inputbox函数

InputBox是Visual Basic和VBS中的函数,功能是弹出一个对话框,在其中显示提示,等待用户输入文字并按下按钮,然后返回用户输入的文字。该函数与MsgBox函数类似,区别就是InputBox函数用于简单地接受用户输入的一些文本。
代码
【VBA(六):操作单元格对象2】【将数据拆分为多表(筛选)+Inputbox函数+Msgbox函数+小结】
效果图
【VBA(六):操作单元格对象2】【将数据拆分为多表(筛选)+Inputbox函数+Msgbox函数+小结】
【VBA(六):操作单元格对象2】【将数据拆分为多表(筛选)+Inputbox函数+Msgbox函数+小结】

Msgbox函数

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

代码
【VBA(六):操作单元格对象2】【将数据拆分为多表(筛选)+Inputbox函数+Msgbox函数+小结】
效果图
【VBA(六):操作单元格对象2】【将数据拆分为多表(筛选)+Inputbox函数+Msgbox函数+小结】

小结

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

相关文章: