绩效考评分汇总统计 求将不同工作表中固定位置的绩效考评分汇总统计

娜娜姐姐

月末各个部门将绩效考评表发过来，然后我就开始了苦逼的复制粘贴，眼睛要瞎不说，还容易出错，心好累，求高手指点，把每个人的绩效总得分计数字统计到一张表格上

xhms

楼主，是这样？

hbalyz

=INDIRECT("[业务部5月份绩效考核.xlsx]"&A2&"!$F$37")

娜娜姐姐

hbalyz 发表于 2018-6-26 21:13
=INDIRECT("[业务部5月份绩效考核.xlsx]"&A2&"!$F$37")

谢谢帮助，这个月眼睛不用瞎啦

娜娜姐姐

xhms 发表于 2018-6-26 19:25
楼主，是这样？

是这样的，可是我复制公式到别的表格上不能出结果啊，INDIRECT($A2   这样锁定的是当前工作表中的A2单元格  可以教我写公式吗

xhms

楼主，希望你能否看得明白，帮得上忙！

huhuFirefly

Sub akm() Set a = ActiveSheet a.Cells(1, 1) = "姓名" a.Cells(1, 2) = "绩效总得分"     ff = "All Files(*.*),*.*,Word Documents(*.do*),*.do*," & "Text Files(*.txt),*.txt,Excel Files(*.xl*), * .xl * "     fil = Application.GetOpenFilename(ff, 4, "请选择文件")     r = Len(fil)     For Z = 1 To r         zz = Mid(Right(fil, Z), 1, 1)         If zz = "\" Then             Exit For         End If     Next     Debug.Print fil     Path = Mid(fil, 1, r - Z + 1)     Debug.Print Path     Filename = Dir(Path)     Debug.Print (Filename)     Do While Filename <> "" And Filename <> ThisWorkbook.Name         Set w = Workbooks.Open(Path & Filename)         For i = 1 To w.Worksheets.Count    '表格数，即员工个数             Set ww = w.Worksheets(i)             x = a.UsedRange.Rows.Count a.Cells(x + 1, 1) = ww.Cells(2, 3) a.Cells(x + 1, 2) = ww.Cells(37, 6)         Next         w.Close         Filename = Dir     Loop End Sub

top欢

跟着你们学到了，非常感谢。

补充内容 (2025-3-5 14:11):
麻烦问一下，要是好多人的评分在同一张工作表，这种可以用公式汇总不