恳请大神帮忙看下指定列提取的难题

qiongmei6

我想求得一个代码，根据“工资汇总”中ab3：ab1000中没有空白的数值b列、d列、v：w列、ab列显示在“津贴”表格中，目前的“津贴”表格就是我希望代码执行后最后的结果，谢谢各位大神的帮忙

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.1.31
   
2.     Dim arr, brr
   
3.     Application.ScreenUpdating = False
   
4.     ReDim brr(1 To 1000, 1 To 5)
   
5.     b = [{2,4,22,23,28}]
   
6.     With Sheets("工资汇总")
   
7.         r = .Cells(.Rows.Count, "b").End(xlUp).Row
   
8.         arr = .[a1].Resize(r, 28)
   
9.     End With
   
10.     For i = 3 To UBound(arr)
    
11.         If arr(i, 28) Then
    
12.             m = m + 1
    
13.             For x = 1 To UBound(b)
    
14.                 brr(m, x) = arr(i, b(x))
    
15.             Next
    
16.         End If
    
17.     Next
    
18.     With Sheets("津贴表")
    
19.         .[aa2:ae1000] = ""
    
20.         .Columns("AC:AD").NumberFormatLocal = "@"
    
21.         .[aa2].Resize(m, 5) = brr
    
22.     End With
    
23.     Application.ScreenUpdating = True
    
24.     MsgBox "OK！"
    
25. End Sub
    

复制代码

feilanga

...................

ykcbf1100

附件供参考。。。

楼主类似的求助已有多次，感觉楼主VBA基础不太好啊，改代码都不会

feilanga

cjc209

真是小白一枚  不就是以身份证汇总就完事了吗 把该显示的列都显示出来就ok了

cjc209

原表顺序

结果

清风竹-

请看附件。