使用未格式化的数据的比较矩阵

Question

我试图写一些VBA脚本，但我有点卡住了。 我有一个Excel文件，其中包含一些标准（A列），这些标准都有子标准，如下所示。

我试图获得一张看起来像这样的新表：

我试图想办法处理它，但我不知道如何写它＆＃34;正确＆＃34;，特别是上半年。

Sub Test()

Application.ScreenUpdating = False
Application.Calculation = xlManual

Count_crit = 0

For i = 3 To .Cells(.Cells.Count)
     If ActiveSheet.Cells(i, 1).Value <> "" Then
    Count_crit = Count_crit + 1
    End If
Next
For i = 0 To Fact(Count_crit)
'this is where i don't know how to handle it


End Sub

非常感谢任何帮助！