IF函数是否可以作为多条件IF函数本身的条件成立结果？

佤神采奕奕

如题，IF函数是否可以作为多条件IF函数本身的条件成立结果？
下面是部分代码，有没有路过的帮忙分析注释下，这么多个if应该怎么看? 底子较薄，嵌套一多就晕了。谢谢了。

1. Dim WireData() As String
   
2. 
   
3. Private Sub SortPart() 'store page to arrar
   
4. ReadPage (Cells(6, 2).Value)
   
5. 
   
6. Dim intVariable As Integer
   
7. Dim ComTERM As Boolean
   
8. Dim ComTERM01 As Boolean
   
9. Dim ComTERM02 As Boolean
   
10. Dim ComCABLE As Boolean
    
11. Dim CheckCableLength As Boolean
    
12. 
    
13. ThisWorkbook.Worksheets("Report").Range("A3:N300").ClearContents
    
14. ThisWorkbook.Worksheets("DT").Range("K2:K300").ClearContents
    
15. ThisWorkbook.Worksheets("DT").Range("T2:T300").ClearContents
    
16. 
    
17. CheckCableLength = False
    
18. 
    
19. For n = 1 To UBound(WireData, 2)
    
20.    
    
21. ComCABLE = False
    
22. ComTERM = False
    
23. ComTERM01 = False
    
24. ComTERM02 = False
    
25.       
    
26.     For h = 2 To ThisWorkbook.Worksheets("DT").UsedRange.Rows.Count
    
27.         'sort the connectors which HPN in LABEL column
    
28.     If WireData(2, n) = "CNCTR" Then
    
29.    
    
30.        If WireData(5, n) = "" Then
    
31.         
    
32.             If WireData(2, n) & WireData(6, n) = Worksheets("DT").Cells(h, 6).Value And Worksheets("DT").Cells(h, 6).Value <> "" Then
    
33.                Worksheets("DT").Cells(h, 11).Value = Worksheets("DT").Cells(h, 11).Value + 1
    
34.                WireData(6, n) = Worksheets("DT").Cells(h, 8).Value
    
35.                ComTERM = True
    
36.             End If
    
37.          
    
38.        Else:
    
39.         
    
40.             If WireData(2, n) & WireData(5, n) = Worksheets("DT").Cells(h, 6).Value And Worksheets("DT").Cells(h, 6).Value <> "" Then
    
41.                Worksheets("DT").Cells(h, 11).Value = Worksheets("DT").Cells(h, 11).Value + 1
    
42.                WireData(5, n) = Worksheets("DT").Cells(h, 8).Value
    
43.                ComTERM = True
    
44.             End If
    
45.         End If
    
46.      Else:
    
47.                   
    
48.          If WireData(2, n) & WireData(5, n) = Worksheets("DT").Cells(h, 6).Value And Worksheets("DT").Cells(h, 6).Value <> "" Or WireData(5, n) = Worksheets("DT").Cells(h, 6).Value And Worksheets("DT").Cells(h, 6).Value <> "" Then
    
49.             Worksheets("DT").Cells(h, 11).Value = Worksheets("DT").Cells(h, 11).Value + 1   'statistic terminal
    
50.             WireData(5, n) = Worksheets("DT").Cells(h, 8).Value                       'replace termianl type
    
51.             ComTERM01 = True
    
52.          End If
    
53.                   
    
54.          If WireData(2, n) & WireData(7, n) = Worksheets("DT").Cells(h, 6).Value And Worksheets("DT").Cells(h, 6).Value <> "" Or WireData(7, n) = Worksheets("DT").Cells(h, 6).Value And Worksheets("DT").Cells(h, 6).Value <> "" Then
    
55.             Worksheets("DT").Cells(h, 11).Value = Worksheets("DT").Cells(h, 11).Value + 1   'statistic terminal
    
56.             WireData(7, n) = Worksheets("DT").Cells(h, 8).Value                       'replace termianl type
    
57.             ComTERM02 = True
    
58.          End If
    
59.                   
    
60.          ComTERM = ComTERM01 And ComTERM02
    
61.                
    
62.      If WireData(2, n) & WireData(3, n) = Worksheets("DT").Cells(h, 15).Value And Worksheets("DT").Cells(h, 15).Value <> "" Then
    
63.             ComCABLE = True
    
64.             
    
65.             If WireData(4, n) <> "" And WireData(4, n) <> " " And WireData(4, n) <> "N/A" And WireData(4, n) <> "TBD" Then
    
66.                 intVariable = Val(WireData(4, n)) / 100
    
67.             
    
68.                 If 0 < intVariable Then Worksheets("DT").Cells(h, 20).Value = Worksheets("DT").Cells(h, 20).Value + intVariable
    
69.                
    
70.                 Else: CheckCableLength = True
    
71.                     ' WireData(1, n) = "无长度"pirate
    
72.                 End If
    
73.             
    
74.             End If
    
75.         
    
76.        End If
    
77.       
    
78.   Next h
    
79.      
    
80.    
    
81.         For j = 1 To UBound(WireData, 2)
    
82.             x = x + 1
    
83.             If WireData(10, j) <> WireData(10, j - 1) Then  '工作表名不相等时，一段范围内同一工作表
    
84.                Worksheets.Add before:=Worksheets("sheet1")
    
85.                TotallPage = TotallPage + 1
    
86.                x = 1
    
87.                ActiveSheet.Name = WireData(10, j)
    
88.             End If
    
89.          
    
90.             For i = 1 To 9
    
91.                ActiveSheet.Cells(x, i).Select
    
92.                If (i = 2 Or i = 6 Or i = 8) And WireData(i, j) <> "" Then
    
93.                ActiveCell.FormulaR1C1 = "'" & WireData(i, j)
    
94.                Else: ActiveSheet.Cells(x, i).Value = WireData(i, j)
    
95.                    'ActiveCell.FormulaR1C1 = "'4/0"
    
96.                End If
    
97.             Next i
    
98.        Next j
    
99.               
    
100. End Sub
     

复制代码

佤神采奕奕

If WireData(2, n) = "CNCTR" Then
   
       If WireData(5, n) = "" Then
        
            If WireData(2, n) & WireData(6, n) = Worksheets("DT").Cells(h, 6).Value And Worksheets("DT").Cells(h, 6).Value <> "" Then
我打个比方，我截几个解释下我的疑问，if ...then 后面不是应该有一个条件成立结果么，怎么又直接跟着if函数啦？