修改Excel VBA代码：仅清除表头为数字的表格列数据

下面是修改后的代码，它会遍历工作簿所有工作表的表格，只清除表头为数字的列中的数据，保留非数字表头列（比如示例中的「姓名」列）的内容：

Sub Clear_Tables()

    Dim TableToCheck As ListObject
    Dim WS_Count As Integer
    Dim I As Integer
    Dim Col As ListColumn ' 新增变量用于遍历表格列
    WS_Count = ActiveWorkbook.Worksheets.Count

    Result = MsgBox("This will clear data from columns with numeric headers only." & vbNewLine & "Are you sure you wish to continue?", vbYesNo + vbInformation)
  
    If Result = vbYes Then
        For I = 1 To WS_Count
            For Each TableToCheck In ActiveWorkbook.Worksheets(I).ListObjects
                If Not (TableToCheck.DataBodyRange Is Nothing) Then
                    ' 遍历表格的每一列，判断表头是否为数字
                    For Each Col In TableToCheck.ListColumns
                        ' 检查表头单元格的值是否为数字
                        If IsNumeric(Col.HeaderRowRange.Value) Then
                            ' 清除该列的数据区域内容
                            Col.DataBodyRange.ClearContents
                        End If
                    Next Col
                End If
            Next TableToCheck
        Next I
    End If
End Sub

关键修改说明： #

• 新增ListColumn类型变量Col，用于逐个遍历表格的每一列
• 替换了原代码中全量清除数据的逻辑，改为仅对表头为数字的列执行清除操作
• 使用IsNumeric函数判断表头单元格的值是否为数字，精准定位需要清除的列
• 更新了提示框的文字，明确告知用户操作范围是「仅清除数字表头列的数据」

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