我正在尝试为电子表格编写一些代码，以计算物料清单（BoM）中的项目是否是采购组件的子项。我将尝试更详细地解释。
基本上，我的电子表格有很多列，但只需要2列来计算。为了简单起见，我只说这些是列A和B，VBA的输出放在列C。
A列包含物料清单级别--它总是从0级开始，该级别的子级是1级，1级的子级是2级，依此类推。目前，在我创建的所有物料清单中，10级是"最深的"，但这不是不可能增加。
列B包含装配状态-我对该列唯一感兴趣的值是"P"，表示已采购。
由于我的电子表格中有多个标题，数据从第12行开始，由于这是最高级别，我可以在C列中将其标记为"TL"。
现在我正在纠结的是，对于从13开始的每一行（这可以很容易地扩展到100，000行或更高!），我需要查看A列（物料清单级别），然后向上查找以找到低于**的级别，直到找到购买的级别（B列中的"P"）或达到物料清单级别0。
希望这张table能帮上忙
| 列a|列b|列c|
| - -|- -|- -|
| 0| ih| TL|
| 1| ih|虚假|
| 2||虚假|
| 2||虚假|
| 1| p|虚假|
| 2| p|真正|
| 3||真正|
| 3||真正|
在考虑如何自动处理这个问题的同时，我想我可以使用一个For循环，它带有一个嵌套的Select Case，后跟一个嵌套的For循环（步骤-1）。
第一个For循环从顶部开始，向下查看最后一行，在每一行，它查看物料清单级别，并根据该值使用Select Case运行For循环（步骤-1），以开始向上查看行。
我可以看到的问题是，我需要为每个可能的物料清单级别（可能的最大总级别为99）提供一个案例
到目前为止的代码摘录（仅转到案例3）：

Sub Purch_Child_Formula()   'ADD CHILD OF PURCHASED ASSY FORMULA
Dim AssyStatus As Double
Dim ChildPurchStatus As Double
Dim CurrentBomLevel As Integer
Dim X As Long

Last_Row = ActiveSheet.Range("A" & rows.Count).End(xlUp).Row

For ChildPurchStatus = 13 To Last_Row
    CurrentBomLevel = Cells(ChildPurchStatus, 1).Value
    
        Select Case CurrentBomLevel
        
        Case 1
            For X = ChildPurchStatus To 13 Step -1
            If Cells(X - 1, 1).Value = CurrentBomLevel Then
            Exit For
            ElseIf Cells(X - 1, 1).Value = (CurrentBomLevel - 1) And Cells(X - 1, 2).Value = "P" Then
                Cells(X, 3).Value = "TRUE"
            Else
                Cells(X, 3).Value = "FALSE"
            End If
            Next X
        Case 2
            For X = ChildPurchStatus To 13 Step -1
            If Cells(X - 1, 1).Value = CurrentBomLevel Then
            Exit For
            ElseIf Cells(X - 1, 1).Value = (CurrentBomLevel - 1) And Cells(X - 1, 2).Value = "P" Then
                Cells(X, 3).Value = "TRUE"
            ElseIf Cells(X - 1, 1).Value = (CurrentBomLevel - 2) And Cells(X - 1, 2).Value = "P" Then
                Cells(X, 3).Value = "TRUE"
            Else
                Cells(X, 3).Value = "FALSE"
            End If
            Next X
        Case 3
            For X = ChildPurchStatus To 13 Step -1
            If Cells(X - 1, 1).Value = CurrentBomLevel Then
            Exit For
            ElseIf Cells(X - 1, 1).Value = (CurrentBomLevel - 1) And Cells(X - 1, 2).Value = "P" Then
                Cells(X, 3).Value = "TRUE"
            ElseIf Cells(X - 1, 1).Value = (CurrentBomLevel - 2) And Cells(X - 1, 2).Value = "P" Then
                Cells(X, 3).Value = "TRUE"
            ElseIf Cells(X - 1, 1).Value = (CurrentBomLevel - 3) And Cells(X - 1, 2).Value = "P" Then
                Cells(X, 3).Value = "TRUE"
            Else
                Cells(X, 3).Value = "FALSE"
            End If
            Next X
        Case 4
            
        Case 5
            
        Case 6
            
        Case 7
            
        Case 8
            
        Case 9
            
        Case 10
        
        End Select
            
Next ChildPurchStatus
    
End Sub

字符串
这开始起作用，但在达到物料清单级别4之前确实出错。
所以现在我在想，也许我应该使用一个初始的for循环来向下查找行，然后再使用另一个for循环来向上查找数据，但是这个for循环应该继续下去，直到它在第2列中找到条件"P"--我们已经到达了一个Until循环。这可能吗？（很明显，编码不是我正常工作的一部分!）
很抱歉，非常罗嗦的职位，但我的情况似乎是独特的，因为一些网上搜索还没有帮助到目前为止。
希望有足够的信息在这篇文章。我会添加任何其他细节要求。