vba弹出窗口获取输入的值_如何运行VBA代码？

每天早上5分钟，Excel多点轻松

我们有一个完整的VBA小代码系列，包含了多表汇总，总表拆分，图片导入等常见问题。总会有朋友询问VBA代码如何使用，这里就先聊一下。
举个例子。
比如下面这段代码，作用是合并多个工作表数据成总表。

Sub CollectData()
    Dim Sht As Worksheet, rng As Range, k&, n&
    Application.ScreenUpdating = False
    '取消屏幕刷新
    n = Val(InputBox("请输入标题的行数", "提醒"))
    If n < 0 Then MsgBox "标题行数不能为负数。", 64, "提示": Exit Sub
    '取得用户输入的标题行数，如果为负数，退出程序
    Cells.ClearContents
    '清空当前表数据
    For Each Sht In Worksheets
    '遍历工作表
        If Sht.Name <> ActiveSheet.Name Then