写个vba，在有内容的列上添加表头，内容为”数据1“”数据2“

您好！以下是一个示例的VBA代码，用于在有内容的列上添加表头，并将内容设置为"数据1"和"数据2"：

Sub AddHeaderToColumn()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim columnRange As Range
    Dim headerRange As Range
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Sheets("Sheet1") '将"Sheet1"替换为您要操作的工作表名称
    
    ' 获取最后一行
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row '将"A"替换为您要操作的列
    
    ' 设置要操作的列范围
    Set columnRange = ws.Range("A2:A" & lastRow) '将"A"替换为您要操作的列
    
    ' 添加表头
    Set headerRange = columnRange.Cells(1).Offset(-1, 0)
    headerRange.Value = "数据1"
    headerRange.Offset(1, 0).Value = "数据2"
End Sub

请注意，上述代码假设您要操作的工作表名称为"Sheet1"，要添加表头的列为"A"列。您可以根据实际情况进行调整。

请将上述代码复制到VBA编辑器中，并在需要添加表头的列上运行该宏。在运行宏之前，请确保已保存当前工作表。

希望对您有所帮助！如有任何疑问，请随时提问。