Excel表第一行为2-14行的和，第2-14行数据固定，A列为标题列，现需要用3-14行的数据依次减第二行的数，直到减完为止；例如原始数据B2=9,B3:B14=5,2,1,5,0,0,0,0,0,0,0,0,要使其输出为B2=9，B3:B14=0,0,0,4,0,0,0,0,0,0,0,0；共300列数据，需用Vba实现此操作

您可以尝试使用以下的VBA代码来实现您的需求：

Sub SubtractRows()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1") '将Sheet1替换为您的工作表名称
    
    Dim lastCol As Integer
    lastCol = ws.Cells(1, Columns.Count).End(xlToLeft).Column
    
    '将第2行数据存储在一个数组中
    Dim arr() As Variant
    arr = ws.Range("B2:B14").Value
    
    '循环处理每一列数据
    Dim i As Integer
    For i = 2 To lastCol
        '将第3~14行数据存储在一个数组中
        Dim data() As Variant
        data = ws.Range(ws.Cells(3, i), ws.Cells(14, i)).Value
        
        '逐行减去第二行的数据
        Dim j As Integer
        For j = 1 To UBound(data)
            data(j, 1) = data(j, 1) - arr(j, 1)
            If data(j, 1) < 0 Then data(j, 1) = 0 '确保结果不为负数
        Next j
        
        '将结果写回工作表
        ws.Range(ws.Cells(3, i), ws.Cells(14, i)).Value = data
    Next i
End Sub

这段代码会循环处理工作表中的每一列数据，将第二行的数据存储在一个数组中，然后逐行减去第二行的数据，确保结果不为负数，最后将结果写回工作表。请注意，此代码假设您的工作表中只有一个表格，且第一行数据的范围是B1到最后一列。如果您的工作表中有多个表格或者范围不同，请修改代码以适应您的需求。