|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
- Sub lkyy()
- Set d = CreateObject("Scripting.Dictionary")
- Dim wb As Workbook, sht As Worksheet
- Set wb = Workbooks.Open(ThisWorkbook.Path & "\工资表样表.xlsx")
- For Each sht In wb.Worksheets
- If sht.Name Like "详表*" Then
- ar = sht.Range("a1:p62")
- For j = 3 To 15
- If Len(ar(4, j)) > 0 Then d(ar(4, j)) = d(ar(4, j)) + ar(62, j)
- Next
- End If
- Next
- wb.Close 0
- Range("c3").Resize(d.Count, 2) = Application.Transpose(Array(d.keys, d.items))
- Set d = Nothing
- End Sub
复制代码 |
|