在Excel中，可以使用透视表来按组创建汇总行，并计算特定观察值的总数。

以下是一个示例代码，将数据源范围A1:C10作为示例数据：

Sub CreatePivotTable()
    Dim dataSheet As Worksheet
    Dim pivotSheet As Worksheet
    Dim pivotTable As PivotTable
    Dim pivotField As PivotField
    Dim dataRange As Range
    
    ' 设置数据源范围
    Set dataSheet = ThisWorkbook.Sheets("Sheet1")
    Set dataRange = dataSheet.Range("A1:C10")
    
    ' 创建透视表
    Set pivotSheet = ThisWorkbook.Sheets.Add
    Set pivotTable = pivotSheet.PivotTableWizard(TableDestination:=pivotSheet.Range("A1"))
    
    ' 设置透视表字段
    Set pivotField = pivotTable.PivotFields("观察值")
    pivotField.Orientation = xlDataField ' 将观察值字段添加到数据区域
    
    ' 按照其他字段进行分组
    pivotTable.PivotFields("字段1").Orientation = xlRowField
    pivotTable.PivotFields("字段2").Orientation = xlRowField
    
    ' 刷新透视表
    pivotTable.RefreshTable
    
    ' 计算特定观察值的总数
    Dim total As Double
    total = pivotTable.GetPivotData("观察值", "字段1的值", "字段2的值")
    MsgBox "观察值的总数为: " & total
    
    ' 清除透视表
    pivotSheet.Delete
End Sub

在这个示例代码中，首先设置数据源范围，然后创建一个新的工作表作为透视表，并将透视表字段设置为适当的方向。最后，使用GetPivotData函数计算特定观察值的总数，并将结果显示在消息框中。

你需要将代码中的数据源范围、字段名称和字段值替换为你自己的实际数据。

希望这可以帮助到你！