VBA添加一个按钮，用于添加从活动单元格上方复制某一特定公式的行，但不起作用

在Excel中，可以使用VBA编程语言为工作表添加按钮，并为按钮添加宏代码以实现特定的功能。在本例中，你可以使用VBA为工作表添加一个按钮，并编写以下代码以复制从活动单元格上方的特定公式的行：

打开Excel，按下Alt+F11打开Visual Basic for Applications编辑器。
在项目资源管理器中，找到你想要添加按钮的工作簿，右键点击并选择"插入" -> "模块"，然后在模块中输入以下代码：

Sub AddFormulaRow()
    Dim activeCell As Range
    Dim formulaRow As Range
    Dim newRow As Range
    
    ' 获取活动单元格
    Set activeCell = ActiveCell
    
    ' 获取要复制的公式所在行
    Set formulaRow = activeCell.Offset(-1).EntireRow
    
    ' 在活动单元格的上方插入一行
    activeCell.EntireRow.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    
    ' 设置新行范围
    Set newRow = activeCell.EntireRow
    
    ' 复制公式行到新行
    formulaRow.Copy newRow
    
    ' 清除剪贴板
    Application.CutCopyMode = False
    
    ' 清除剪贴板
    Application.CutCopyMode = False
End Sub