我懂你现在的困扰——想做个能过滤数据的按钮，还想用VBA自定义它的大小和名称，但按钮就是死活不出来，确实挺让人头疼的。先看你贴的代码，这里面完全没有创建按钮的逻辑，这大概率是问题的核心！

一、先补上创建按钮的关键代码 #

你现在只有按钮的点击事件和一个空的选区变化过程，但按钮本身还没被创建出来呢。给你两种常见按钮的创建代码，按需选：

1. 创建表单控件按钮（适合快速绑定宏） #

把这段代码放到模块里，运行一次就能生成按钮：

Sub CreateFilterButton()
    Dim btn As Button
    Dim targetRange As Range
    
    ' 指定按钮放置的起始位置（比如Sheet1的A1单元格）
    Set targetRange = ThisWorkbook.Sheets("Sheet1").Range("A1")
    
    ' 创建按钮，参数依次是：左、上、宽、高
    Set btn = targetRange.Parent.Buttons.Add(targetRange.Left, targetRange.Top, 100, 30)
    
    ' 自定义按钮属性
    btn.Name = "FilterButton" ' 设置按钮内部名称
    btn.Caption = "执行数据过滤" ' 设置按钮显示的文字
    btn.OnAction = "Module1.Main" ' 绑定点击后要执行的宏
    
    ' 要是想调整大小，直接改下面的数值就行
    ' btn.Width = 120
    ' btn.Height = 35
End Sub

2. 创建ActiveX按钮（对应你现有的点击事件） #

如果你想用你已经写好的CommandButton1_Click事件，就用这段代码创建ActiveX按钮：

Sub CreateActiveXFilterButton()
    Dim btn As OLEObject
    Dim ws As Worksheet
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    ' 创建ActiveX命令按钮
    Set btn = ws.OLEObjects.Add(ClassType:="Forms.CommandButton.1")
    
    ' 配置按钮属性
    btn.Name = "CommandButton1" ' 要和你的事件名称对应
    btn.Object.Caption = "执行数据过滤"
    btn.Left = ws.Range("A1").Left
    btn.Top = ws.Range("A1").Top
    btn.Width = 100
    btn.Height = 30
End Sub

运行这段代码后，你的CommandButton1_Click事件就能正常触发了。

二、排查其他可能导致按钮不显示的情况 #

• 按钮被隐藏了：按Ctrl+G打开「定位」窗口，输入按钮名称（比如CommandButton1），如果能定位到，右键按钮选择「设置控件格式」，把「属性」里的「隐藏」取消掉，或者调整它的位置到可见区域。
• 工作表被保护了：如果工作表处于保护状态，新创建的控件可能无法显示。先去「审阅」选项卡取消工作表保护，再尝试创建按钮。
• 被其他元素挡住了：按Ctrl+Shift+O选中工作表里所有对象，看看能不能找到你的按钮，然后右键选择「置于顶层」。

内容的提问来源于stack exchange，提问作者dorichidori