如何使用VBA清除Excel表格内容并将其转换为单行？

针对你的需求，不需要删除整个表格，直接操作表格的数据行和内容即可实现。以下是代码及分步说明：

Dim sTableName As String
Dim sSheetName As String
Dim tbl As ListObject

sSheetName = "VBAMacro"
sTableName = "ProductSale_Table"

' 获取目标表格对象，简化后续操作
Set tbl = Sheets(sSheetName).ListObjects(sTableName)

' 清除表格所有数据行的内容（保留表头）
' 若只需清除内容、保留格式，替换为 tbl.DataBodyRange.ClearContents
tbl.DataBodyRange.Clear

' 调整表格为1个空数据行
Select Case tbl.ListRows.Count
    Case Is > 1
        ' 数据行超过1行时，删除第2行到最后一行
        tbl.ListRows.Range(2, tbl.ListRows.Count).Delete
    Case 0
        ' 没有数据行时，添加1个空行
        tbl.ListRows.Add
End Select

代码说明： #

• 获取表格对象：通过Set tbl = ...把目标表格赋值给变量，避免重复写复杂的引用路径，也更方便调试。
• 清除数据内容：
  • tbl.DataBodyRange.Clear：清除数据行的所有内容（包括格式、公式等），仅保留表头。
  • 要是只想清除单元格内容、保留原有格式，改用tbl.DataBodyRange.ClearContents即可。
• 调整为单行：通过判断现有数据行的数量，删除多余行或添加空行，确保最终表格仅保留1个空的数据行。

内容的提问来源于stack exchange，提问作者webpie