VBA:删除某一列中有空白的行并在Excel中创建一个按钮

VBA（Visual Basic for Applications）是一种基于Microsoft Visual Basic的宏语言，用于在Microsoft Office应用程序中编写自定义宏和脚本。它可以帮助用户自动化重复性任务，提高工作效率。

在Excel中，如果想要删除某一列中有空白的行并创建一个按钮，可以按照以下步骤进行操作：

打开Excel，并按下Alt + F11组合键，打开Visual Basic for Applications编辑器。
在编辑器中，选择插入菜单中的“模块”，在新建的模块中编写VBA代码。
在模块中编写以下VBA代码：

Sub DeleteBlankRows()
    Dim lastRow As Long
    Dim i As Long
    
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row ' 获取最后一行的行号
    
    For i = lastRow To 1 Step -1 ' 从最后一行开始往上遍历
        If WorksheetFunction.CountA(Rows(i)) = 0 Then ' 判断当前行是否为空白行
            Rows(i).Delete ' 删除空白行
        End If
    Next i
End Sub

Sub CreateButton()
    Dim btn As Button
    Dim rng As Range
    
    Set rng = Range("A1") ' 设置按钮所在的单元格
    
    ' 在指定单元格位置创建按钮
    Set btn = ActiveSheet.Buttons.Add(rng.Left, rng.Top, rng.Width, rng.Height)
    
    With btn
        .OnAction = "DeleteBlankRows" ' 指定按钮点击后执行的宏
        .Caption = "删除空白行" ' 设置按钮显示的文本
    End With
End Sub