首页 › 实战技术 › 清除超级表留标题以外所有内容VBA

nnsea 发表于 2023-11-4 13:24:33

清除超级表留标题以外所有内容VBA

Sub ClearSuperTableData()
    Dim tbl As ListObject

    ' 获取活动工作表中的超级表
    Set tbl = ActiveSheet.ListObjects("表2")

    If Not tbl Is Nothing Then
      ' 清除超级表中的数据，但保留标题行
      tbl.DataBodyRange.ClearContents
    Else
      MsgBox "未找到指定的超级表。"
    End If
End Sub

查看完整版本: 清除超级表留标题以外所有内容VBA