如何使用多重if汇总多工作簿数据，涉及表格数据与汇总表的判断，求帮助

cocobobo

1. Sub 汇总()
   
2.    Dim myPath$, myFile$, AK As Workbook, tcol%, i As Integer
   
3.    Application.ScreenUpdating = False
   
4.    myPath = ThisWorkbook.Path & ""
   
5.    myFile = Dir(myPath & "*.xls")
   
6.    Do While myFile <> ""
   
7.       If myFile <> ThisWorkbook.Name Then
   
8.          Set AK = Workbooks.Open(myPath & myFile)
   
9.          Else
   
10.          Exit Sub
    
11.       End If
    
12.       If AK.Sheets(1).Range("f12") <> 0 Then
    
13.             With ThisWorkbook.Sheets(1)
    
14.         r = .Range("b65536").End(xlUp).Row + 1
    
15.       .Cells(r, 2) = AK.Sheets(1).Range("d5") '姓名优抚对象
    
16.       .Cells(r, 6) = AK.Sheets(1).Range("d6") '身份证
    
17.       .Cells(r, 13) = AK.Sheets(1).Range("f12") '金额
    
18.       .Cells(r, 14) = AK.Sheets(1).Range("g12") '银行账号
    
19.             End With
    
20.             
    
21.             ElseIf AK.Sheets(1).Range("f13") <> 0 Then
    
22.             With ThisWorkbook.Sheets(1)
    
23.         r = .Range("b65536").End(xlUp).Row + 1
    
24.       .Cells(r, 2) = AK.Sheets(1).Range("d5") '姓名义务兵
    
25.       .Cells(r, 6) = AK.Sheets(1).Range("d6") '身份证
    
26.       .Cells(r, 17) = AK.Sheets(1).Range("f13") '金额
    
27.       .Cells(r, 18) = AK.Sheets(1).Range("g13") '银行账号
    
28.            End With
    
29.       
    
30.            ElseIf AK.Sheets(1).Range("f14") <> 0 Then
    
31.            With ThisWorkbook.Sheets(1)
    
32.       r = .Range("b65536").End(xlUp).Row + 1
    
33.       .Cells(r, 2) = AK.Sheets(1).Range("d5") '姓名惠民
    
34.       .Cells(r, 6) = AK.Sheets(1).Range("d6") '身份证
    
35.       .Cells(r, 21) = AK.Sheets(1).Range("f14") '金额
    
36.       .Cells(r, 22) = AK.Sheets(1).Range("g14") '银行账号
    
37.       End With
    
38.       
    
39.          ElseIf AK.Sheets(1).Range("f15") <> 0 Then
    
40.          With ThisWorkbook.Sheets(1)
    
41.         r = .Range("b65536").End(xlUp).Row + 1
    
42.       .Cells(r, 2) = AK.Sheets(1).Range("d5") '姓名独生子女
    
43.       .Cells(r, 6) = AK.Sheets(1).Range("d6") '身份证
    
44.       .Cells(r, 25) = AK.Sheets(1).Range("f15") '金额
    
45.       .Cells(r, 26) = AK.Sheets(1).Range("g15") '银行账号
    
46.         End With
    
47.       
    
48.         ElseIf AK.Sheets(1).Range("f16") <> 0 Then
    
49.         With ThisWorkbook.Sheets(1)
    
50.         r = .Range("b65536").End(xlUp).Row + 1
    
51.       .Cells(r, 2) = AK.Sheets(1).Range("d5") '姓名残疾
    
52.       .Cells(r, 6) = AK.Sheets(1).Range("d6") '身份证
    
53.       .Cells(r, 29) = AK.Sheets(1).Range("f16") '金额
    
54.       .Cells(r, 30) = AK.Sheets(1).Range("g16") '银行账号
    
55.       End With
    
56.       
    
57.         ElseIf AK.Sheets(1).Range("f17") <> 0 Then
    
58.         With ThisWorkbook.Sheets(1)
    
59.         r = .Range("b65536").End(xlUp).Row + 1
    
60.       .Cells(r, 2) = AK.Sheets(1).Range("d5") '姓名再生育
    
61.       .Cells(r, 6) = AK.Sheets(1).Range("d6") '身份证
    
62.       .Cells(r, 33) = AK.Sheets(1).Range("f17") '金额
    
63.       .Cells(r, 34) = AK.Sheets(1).Range("g17") '银行账号
    
64.        End With
    
65.      
    
66.         ElseIf AK.Sheets(1).Range("f19") <> 0 Then
    
67.        With ThisWorkbook.Sheets(1)
    
68.         r = .Range("b65536").End(xlUp).Row + 1
    
69.       .Cells(r, 2) = AK.Sheets(1).Range("d5") '姓名高龄
    
70.       .Cells(r, 6) = AK.Sheets(1).Range("d6") '身份证
    
71.       .Cells(r, 41) = AK.Sheets(1).Range("f19") '金额
    
72.       .Cells(r, 42) = AK.Sheets(1).Range("g19") '银行账号
    
73.      
    
74.      
    
75.         
    
76. Workbooks(myFile).Close False
    
77.      End If
    
78.     End If
    
79.    End If
    
80.   End If
    
81. End If
    
82. End If
    
83. End If
    
84. End If
    
85.   End If
    
86.       myFile = Dir
    
87.    Loop
    
88.    Application.ScreenUpdating = True
    
89.    MsgBox "汇总完成！", 64, "提示"
    
90. 
    
91.             
    
92. End Sub

复制代码

蓝桥玄霜

请见附件。

LMY123

多薄首表合并

cocobobo

原来我是没有明白if... elseif..elseif.. else... endif的用法,希望老师有这方面的讲解就好了