写个vba，b列开始的非空列添加表头，内容为”数据“&+1

以下是一个VBA代码示例，可以实现在B列开始的非空列添加表头，内容为"数据"加上列数：

Sub AddHeaderToNonEmptyColumns()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim lastColumn As Long
    Dim header As String
    Dim i As Long
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 修改为实际的工作表名称
    
    ' 获取最后一行和最后一列的索引
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    lastColumn = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    
    ' 添加表头
    For i = 2 To lastColumn
        If WorksheetFunction.CountA(ws.Columns(i)) > 0 Then
            header = "数据" & i
            ws.Cells(1, i).Value = header
        End If
    Next i
End Sub

请将代码复制到VBA编辑器中的模块中，并根据需要修改工作表名称。运行该宏后，将在B列开始的非空列上方添加一个表头，内容为"数据"加上列数。