excel - 使用 VBA 从表中选择名称后如何删除 Excel 工作表？

Question

我的 Excel 文件中有一个包含所有工作表名称的表格。
在选择包含其名称的单元格后，我试图删除工作表。

Sub Delete_Active_Rows()
    Dim deletedcell As String
    deletedcell = Rows(ActiveCell.Row)
    Application.DisplayAlerts = False
    Sheets(deletedcell).Delete
    Application.DisplayAlerts = True
    Rows(ActiveCell.Row).Delete
End Sub

我得到：

运行时错误“13”：类型不匹配

标签： excelvba

Answer 1

怎么样：

Sub SheetKiller()
    Dim s As String, r As Range
    
    s = ActiveCell.Value
    Set r = ActiveCell.EntireRow
    
    Application.DisplayAlerts = False
        Sheets(s).Delete
    Application.displayalrers = True
    r.Delete
End Sub

尽量避免删除包含按钮的工作表！