写个vba，从b列开始的非空列的所有列的第一行分别添加表头，内容为”数据“&+1

你好！以下是一个VBA代码示例，用于从B列开始的非空列的所有列的第一行分别添加表头，内容为"数据" + 列索引：

Sub AddHeaders()
    Dim ws As Worksheet
    Dim lastCol As Integer
    Dim i As Integer
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.ActiveSheet
    
    ' 获取最后一列的索引
    lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    
    ' 从B列开始，循环遍历每一列
    For i = 2 To lastCol
        ' 检查当前列是否为空
        If ws.Cells(1, i) <> "" Then
            ' 在当前列的第一行添加表头
            ws.Cells(1, i).Value = "数据" & (i - 1)
        End If
    Next i
End Sub

请在需要添加表头的工作表上运行此代码。它将从B列开始，循环遍历每一列，并在非空列的第一行添加表头，表头内容为"数据" + 列索引。

希望对你有帮助！如果还有其他问题，请随时提问。