有偿求助，在整个工作簿内提取相应数据

ifritxiang

示例.zip (57.86 KB, 下载次数: 17)

2017-5-29 10:56 上传

点击文件名下载附件

现需将“工资表样表”内每人姓名与相匹配的实得工资提取至“建行工资”内
，
“工资表样表”内可能存在无姓名空列，无需提取
，
工资=0者，无需提取

劳烦哪位帮忙解决一下，谢谢！微信有偿感谢！

lsc900707

5月8日才回复了你的帖子：
http://club.excelhome.net/forum. ... 600&pid=9090552

ifritxiang

lsc900707 发表于 2017-5-29 11:05
5月8日才回复了你的帖子：
http://club.excelhome.net/forum.php?mod=redirect&goto=findpost&ptid=134460 ...

您好，现在有两个问题
1、汇总列数据被提取
2、能否不提取实得为0的数据谢谢

未忘初心

看看是不是这样 O(∩_∩)O1

凌空一羽

1. Sub lkyy()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. Dim wb As Workbook, sht As Worksheet
   
4. Set wb = Workbooks.Open(ThisWorkbook.Path & "\工资表样表.xlsx")
   
5. For Each sht In wb.Worksheets
   
6.     If sht.Name Like "详表*" Then
   
7.         ar = sht.Range("a1:p62")
   
8.         For j = 3 To 15
   
9.             If Len(ar(4, j)) > 0 Then d(ar(4, j)) = d(ar(4, j)) + ar(62, j)
   
10.         Next
    
11.     End If
    
12. Next
    
13. wb.Close 0
    
14. Range("c3").Resize(d.Count, 2) = Application.Transpose(Array(d.keys, d.items))
    
15. Set d = Nothing
    
16. End Sub
    

复制代码

鄂龙蒙

用lsc900707老师的代码改下就好了：

示例.rar (63.87 KB, 下载次数: 6)

2017-5-29 11:31 上传

点击文件名下载附件

凌空一羽

ifritxiang 发表于 2017-5-29 11:15
您好，现在有两个问题
1、汇总列数据被提取
2、能否不提取实得为0的数据谢谢

1. Sub lkyy()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. Dim wb As Workbook, sht As Worksheet
   
4. Set wb = Workbooks.Open(ThisWorkbook.Path & "\工资表样表.xlsx")
   
5. For Each sht In wb.Worksheets
   
6.     If sht.Name Like "详表*" Then
   
7.         ar = sht.Range("a1:p62")
   
8.         For j = 3 To 15
   
9.             If Len(ar(4, j)) > 0 And ar(62, j) > 0 Then d(ar(4, j)) = d(ar(4, j)) + ar(62, j)
   
10.         Next
    
11.     End If
    
12. Next
    
13. wb.Close 0
    
14. Range("c3").Resize(d.Count, 2) = Application.Transpose(Array(d.keys, d.items))
    
15. Set d = Nothing
    
16. End Sub

复制代码

ifritxiang

凌空一羽 发表于 2017-5-29 12:06

谢谢您的回复，详表名称在实际使用中不一致，不是规整的“详表*”，套用时出现错误

ifritxiang

鄂龙蒙 发表于 2017-5-29 11:31
用lsc900707老师的代码改下就好了：

谢谢您的回复

ifritxiang

未忘初心 发表于 2017-5-29 11:19
看看是不是这样 O(∩_∩)O1

工资表样表在实际使用中，详表名称不固定，不是规整的“详表*”，套用时出现错误，请问有方法解决吗