【VBA(六)：操作单元格对象2】【将数据拆分为多表（筛选）+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语句+事件与典型应用案例+小结与练习】