如何在列的第一个空白单元格中创buildbutton

我试图创build一个button，如下所示：

Selection.Characters.Text = "Hide" With Selection.Characters(Start:=1, Length:=4).Font .Name = "Calibri" .FontStyle = "Regular" .Size = 11 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = 1 

我希望button出现在B列末尾的空白单元格中，在单元格B4之后（单元格B1-B3也可能不总是有值）

谢谢

Answer 1

只是为了分享，我最终find了代码，比我想象的要简单得多…：

 Dim btn As Button Dim rng As Range With Worksheets("Sheet1") Set rng = .Range("B4").End(xlDown).Offset(1, 0) Set btn = .Buttons.Add(rng.Left, rng.Top, 57.75, 34.5) With btn .Caption = "Hide" .OnAction = "Macro2" End With End With 

我猜字体＆东西的规格是不是那么重要…