求助如何修改根据D3单位名称和H3性别提取相关信息。现单条件可提取，两个不可以。谢谢

qinhuan66

求助现有一表可以单个条件提取数年，现需增加为符全两个条件，根据D3单位名称和H3性别来分别提取数据库相关信息。谢谢
求助.rar (18.45 KB, 下载次数: 2)

2019-6-4 18:14 上传

点击文件名下载附件

1. Sub 附件4()
   
2. With Sheets("数据库")
   
3. Sheets(Array("附件4")).Select
   
4.    
   
5. 
   
6.     [B5:K500].Select
   
7.     Selection.ClearContents
   
8.      Range("B5").Select
   
9.     arr = Sheets("数据库").[a1].CurrentRegion
   
10.     W = 4 '
    
11.     With Sheets("附件4")
    
12.         For i = 2 To UBound(arr) '
    
13. '             If arr(i, 5) = Range("$D3") Then
    
14.              If arr(i, 5) = Range("$D3") Or arr(i, 3) = Range("$H3") Then
    
15.                 j = j + 1
    
16.                 .Cells(W + j, 2) = arr(i, 2)
    
17.                 .Cells(W + j, 3) = arr(i, 3)
    
18.                 .Cells(W + j, 4) = arr(i, 5)
    
19.                 .Cells(W + j, 5) = arr(i, 4)
    
20.                 .Cells(W + j, 6) = arr(i, 11)
    
21.                 .Cells(W + j, 7) = arr(i, 8)
    
22.             End If
    
23.             If j = 10 Then '结束行
    
24.                 j = 0: W = W + 10 '隔行开始
    
25.             End If
    
26.         Next
    
27.     End With
    
28.     End With
    
29.     Dim Target As Range
    
30. Set Target = Range("$B4")
    
31. End Sub
    

复制代码

l00l00

1. 
   
2.              If arr(i, 4) = Range("$D3") And arr(i, 3) = Range("$H3") Then
   
3. 
   

复制代码

qinhuan66

在线等待高人指点

l00l00

求助.rar (18.19 KB, 下载次数: 2)

2019-6-4 22:54 上传

点击文件名下载附件

nini11123

111111