Excel “我如何找到全部”；“真的”；在一列中，并在每行上方插入两行，是否为true？ 会计代码 01-80-07 03-24-00正确 03-24-00 03-69-00 04-16-00正确 04-20-00 04-21-00 05-99-00正确 07-01-00正确 07-01-00 07-10-00 07-10-00 94-40-95正确

有人知道我需要什么吗？True在B列中，每个月可能有不同数量的True，它们之间的间距也不同。

编写一个函数，生成一个包含所有行号的数组，其中“True”出现在B列上，然后向后遍历数组（首先处理最后一个元素），在需要时添加行。这样，您就不需要跟踪创建阵列后所做的更改

编辑：代码框架

AccountCode 01-80-07 03-24-00 True 03-24-00 03-69-00 04-16-00 True 04-20-00 04-21-00 05-99-00 True 07-01-00 True 07-01-00 07-10-00 07-10-00 94-40-95 True

---

编写一个函数，生成列B上显示“True”的所有行号的数组，然后向后遍历该数组（首先处理最后一个元素），在需要时添加行。这样，您就不需要跟踪创建阵列后所做的更改

编辑：代码框架

AccountCode 01-80-07 03-24-00 True 03-24-00 03-69-00 04-16-00 True 04-20-00 04-21-00 05-99-00 True 07-01-00 True 07-01-00 07-10-00 07-10-00 94-40-95 True 我只需要创建一个“行”列，该列使用公式查看帐户代码旁边是否有TRUE，如果有，则为另外两行保留相同的行号。如果没有，则只前进到下一行

Sub DoTheThing()
    Dim indices() As Integer
    indices = getIndices
    Dim i As Integer
    For i = Len(indices) - 1 To 0 Step -1
        Call AddRows(indices(i))
    Next i
End Sub

Sub AddRows(index As Integer)
    ' Add two rows above the passed row index. '
End Sub

Function getIndices() As Integer()
    ' Gather all indices of "True" rows to an array. '
End Function

行帐户代码 1 01-80-07 2. 2. 2 03-24-00正确 3 03-24-00 4 03-69-00 5. 5. 5 04-16-00正确 6 04-20-00 7 04-21-00 8. 8. 8 05-99-00正确 9 9 9 07-01-00正确 10 07-01-00 11 07-10-00 12 07-10-00 13 13 13 94-40-95正确 这是你需要的公式行标签应位于单元格D2中。

Row AccountCode 1 01-80-07 2 2 2 03-24-00 TRUE 3 03-24-00 4 03-69-00 5 5 5 04-16-00 TRUE 6 04-20-00 7 04-21-00 8 8 8 05-99-00 TRUE 9 9 9 07-01-00 TRUE 10 07-01-00 11 07-10-00 12 07-10-00 13 13 13 94-40-95 TRUE 行帐户代码 1=如果（D3=D4，”，索引（A$2:A$14，D3））=如果（D3=D4，”，如果（索引（B$2:B$14，D3）=真，真，”） =IF（索引（B$2:B$14，D3），IF（D1=D3，D3+1，D3），D3+1）=IF（D4=D5，”，索引（A$2:A$14，D4））=IF（D4=D5，”，IF（索引（B$2:B$14，D4）=真，真，”） =IF（索引（B$2:B$14，D4），IF（D2=D4，D4+1，D4+1）=IF（D5=D6，”，索引（A$2:A$14，D5））=IF（D5=D6，”，IF（索引（B$2:B$14，D5）=真，真，”） =IF（索引（B$2:B$14，D5），IF（D3=D5，D5+1，D5+1）=IF（D6=D7，”，索引（A$2:A$14，D6））=IF（D6=D7，”，IF（索引（B$2:B$14，D6）=真，真，”） =IF（索引（B$2:B$14，D6），IF（D4=D6，D6+1，D6+1）=IF（D7=D8，”，索引（A$2:A$14，D7））=IF（D7=D8，”，IF（索引（B$2:B$14，D7）=真，真，”） =IF（索引（B$2:B$14，D7），IF（D5=D7，D7+1，D7+1）=IF（D8=D9，”，索引（A$2:A$14，D8））=IF（D8=D9，”，IF（索引（B$2:B$14，D8）=真，真，”） =IF（索引（B$2:B$14，D8），IF（D6=D8，D8+1，D8+1）=IF（D9=D10，”，索引（A$2:A$14，D9））=IF（D9=D10，”，IF（索引（B$2:B$14，D9）=TRUE，TRUE，”） =IF（索引（B$2:B$14，D9），IF（D7=D9，D9+1，D9+1）=IF（D10=D11，”，索引（A$2:A$14，D10））=IF（D10=D11，”，IF（索引（B$2:B$14，D10）=TRUE，TRUE，”） =如果（索引（B$2:B$14，D10），如果（D8=D10，D10+1，D10），D10+1）=如果（D11=D12，”，索引（A$2:A$14，D11））=如果（D11=D12，”，如果（索引（B$2:B$14，D11）=真，真，”） =如果（索引（B$2:B$14，D11），如果（D9=D11，D11+1，D11+1）=如果（D12=D13，”，索引（A$2:A$14，D12））=如果（D12=D13，”，如果（索引（B$2:B$14，D12）=真，真，”） =如果（索引（B$2:B$14，D12），如果（D10=D12，D12+1，D12），D12+1）=如果（D13=D14，”，索引（A$2:A$14，D13））=如果（D13=D14，”，如果（索引（B$2:B$14，D13）=真，真，”） =如果（索引（B$2:B$14，D13），如果（D11=D13，D13+1，D13+1）=如果（D14=D15，”，索引（A$2:A$14，D14））=如果（D14=D15，”，如果（索引（B$2:B$14，D14）=真，真，”） =如果（索引（B$2:B$14，D14），如果（D12=D14，D14+1，D14+1）=如果（D15=D16，”，索引（A$2:A$14，D15））=如果（D15=D16，”，如果（索引（B$2:B$14，D15）=真，真，”） =IF（索引（B$2:B$14，D15），IF（D13=D15，D15+1，D15+1）=IF（D16=D17，”，索引（A$2:A$14，D16））=IF（D16=D17，”，IF（索引（B$2:B$14，D16）=TRUE，TRUE，”） =如果（索引（B$2:B$14，D16），如果（D14=D16，D16+1，D16+1）=如果（D17=D18，”，索引（A$2:A$14，D17））=如果（D17=D18，”，如果（索引（B$2:B$14，D17）=真，真，”） =如果（索引（B$2:B$14，D17），如果（D15=D17，D17+1，D17+1）=如果（D18=D19，”，索引（A$2:A$14，D18））=如果（D18=D19，”，如果（索引（B$2:B$14，D18）=真，真，”） =IF（索引（B$2:B$14，D18），IF（D16=D18，D18+1，D18+1）=IF（D19=D20，”，索引（A$2:A$14，D19））=IF（D19=D20，”，IF（索引（B$2:B$14，D19）=TRUE，TRUE，”） =如果（索引（B$2:B$14，D19），如果（D17=D19，D19+1，D19+1）=如果（D20=D21，”，索引（A$2:A$14，D20））=如果（D20=D21，”，如果（索引（B$2:B$14，D20）=真，真，”） =IF（索引（B$2:B$14，D20），IF（D18=D20，D20+1，D20+1）=IF（D21=D22，“，索引（A$2:A$14，D21））=IF（D21=D22，”，IF（索引（B$2:B$14，D21）=真，真，”） =IF（索引（B$2:B$14，D21），IF（D19=D21，D21+1，D21+1）=IF（D22=D23，”，索引（A$2:A$14，D22））=IF（D22=D23，”，IF（索引（B$2:B$14，D22）=真，真，”） =IF（索引（B$2:B$14，D22），IF（D20=D22，D22+1，D22+1）=IF（D23=D24，”，索引（A$2:A$14，D23））=IF（D23=D24，”，IF（索引（B$2:B$14，D23）=真，真，”） =IF（索引（B$2:B$14，D23），IF（D21=D23，D23+1，D23+1）=IF（D24=D25，”，索引（A$2:A$14，D24））=IF（D24=D25，”，IF（索引（B$2:B$14，D24）=真，真，”） =IF（索引（B$2:B$14，D24），IF（D22=D24，D24+1，D24+1）=IF（D25=D26，”，INDEX（A$2:A$14，D25））=IF（D25=D26，”，IF（索引（B$2:B$14，D25）=TRUE，TRUE，”）我只需创建一个“行”列，使用公式查看账户代码旁边是否有TRUE，如果有，则为另外两行保持行号相同。如果没有，则只前进到下一行

Sub DoTheThing()
    Dim indices() As Integer
    indices = getIndices
    Dim i As Integer
    For i = Len(indices) - 1 To 0 Step -1
        Call AddRows(indices(i))
    Next i
End Sub

Sub AddRows(index As Integer)
    ' Add two rows above the passed row index. '
End Sub

Function getIndices() As Integer()
    ' Gather all indices of "True" rows to an array. '
End Function

行帐户代码 1 01-80-07 2. 2. 2 03-24-00正确 3 03-24-00 4 03-69-00 5. 5. 5 04-16-00正确 6 04-20-00 7 04-21-00 8. 8. 8 05-99-00正确 9 9 9 07-01-00正确 10 07-01-00 11 07-10-00 12 07-10-00 13 13 13 94-40-95正确 这是你需要的公式行标签应位于单元格D2中。

Row AccountCode 1 01-80-07 2 2 2 03-24-00 TRUE 3 03-24-00 4 03-69-00 5 5 5 04-16-00 TRUE 6 04-20-00 7 04-21-00 8 8 8 05-99-00 TRUE 9 9 9 07-01-00 TRUE 10 07-01-00 11 07-10-00 12 07-10-00 13 13 13 94-40-95 TRUE 行帐户代码 1.