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

以下是一个VBA代码示例，可以从B列开始的非空列的第一行添加内容，内容为"数据" + 1：

Sub AddData()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim column As Long
    
    Set ws = ThisWorkbook.ActiveSheet
    
    column = 2 ' B列的列号
    
    ' 找到第一个非空列
    Do While ws.Cells(1, column).Value <> ""
        column = column + 1
    Loop
    
    lastRow = ws.Cells(ws.Rows.Count, column - 1).End(xlUp).Row ' 找到最后一行
    
    ws.Cells(1, column).Value = "数据" & (lastRow + 1) ' 在第一行添加内容
    
End Sub

请将上述代码复制到Excel的VBA编辑器中（按下Alt + F11打开VBA编辑器），然后运行该宏即可在第一个非空列的第一行添加内容。

注意：在运行该宏之前，请确保已经打开了要操作的Excel文件，并且在要添加内容的列之后没有其他需要保留的数据。