[已解决]数据汇总问题

djsd1016

       我想将各个员工表里边的”计件工资额“一列中黄色村注的数据，提取、复制、粘贴到”统计表“中对应的员工所在的行，如附件所视。（统计表中员工顺序与工作表名称顺序有可能不一致）

最佳答案

月排行榜 / 总排行榜

风化石

2012-10-25 14:56

Sub 工作表合并()
x = Range("A65536").End(xlUp).Row '行数
Range("B2:AF" & x).ClearContents
For m = 2 To x
For Each st In Worksheets
If st.Name = Cells(m, 1) Then
Cells(m, 2).Resize(1, 31) = Application.Transpose(st.Range("I5:I35"))
End If
Next
Next
End Sub
每日个人产量记录表.rar (11.72 KB, 下载次数: 20)

2012-10-25 15:04 上传

点击文件名下载附件

跳转到最佳答案楼层

动物凶猛1

两种方法，第一种，transpose函数，数组公式 第二种，复制，选择性粘贴，粘贴数值+转置，两种方法都需要最后把单元格格式改为货币，调整小数位数

djsd1016

想用VBA来解决，继续求教，谢谢

风化石

Sub 工作表合并()
x = Range("A65536").End(xlUp).Row '行数
Range("B2:AF" & x).ClearContents
For m = 2 To x
For Each st In Worksheets
If st.Name = Cells(m, 1) Then
Cells(m, 2).Resize(1, 31) = Application.Transpose(st.Range("I5:I35"))
End If
Next
Next
End Sub
每日个人产量记录表.rar (11.72 KB, 下载次数: 20)

2012-10-25 15:04 上传

点击文件名下载附件

fzh2618182

学习一下，谢谢各位！