写个vba，在表格中所有内容的列上添加表头

您好！如果您想在Excel表格中的所有内容的列上添加表头，可以使用VBA编写以下代码实现：

Sub AddHeadersToColumns()
    Dim ws As Worksheet
    Dim lastColumn As Integer
    Dim col As Range
    
    '设置要操作的工作表
    Set ws = ActiveSheet
    
    '获取最后一列的索引
    lastColumn = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    
    '循环遍历每一列
    For Each col In ws.Range(ws.Cells(1, 1), ws.Cells(1, lastColumn))
        '在每一列的上方插入表头
        col.EntireColumn.Insert
        col.Offset(-1).Value = "表头"
    Next col
End Sub

您可以按照以下步骤使用该VBA代码：

1. 打开Excel表格并按下Alt + F11打开VBA编辑器。
2. 在左侧的项目资源管理器窗口中，双击要添加表头的工作表。
3. 在右侧的代码窗口中，粘贴上述代码。
4. 按下F5运行代码，或者点击工具栏上的运行按钮。
5. 执行完毕后，您的表格中的每一列都会在内容上方添加一个表头。

请注意，在运行代码之前，请确保已经保存并备份了您的Excel文件，以防意外情况发生。

希望对您有所帮助！如果您有任何其他问题，请随时提问。