小女子跪求大神指点

wcy064141

请大神指点：计算《食堂表》内考勤号码B列对应的M列的出勤数，将出勤加和对应每个人的考勤号码填写在《汇总表》的AK列。

excel玉米

打开汇总表时，显示“无法识别的文件格式".

wcy064141

重新上传一次，看是否能够打开

iwangyi

Sub CC()
Set D = CreateObject("SCRIPTING.DICTIONARY")
ARR = Sheets("食堂").UsedRange
For I = 2 To UBound(ARR)
D(ARR(I, 2) & ARR(I, 4) & ARR(I, 6)) = D(ARR(I, 2) & ARR(I, 4) & ARR(I, 6)) + ARR(I, 13)
Next
Stop
RL = Range("C65536").End(xlUp).Row
CL = [IV4].End(xlToLeft).Column
For X = 4 To RL
   For Y = 5 To CL - 4
   Cells(X, Y) = D(Cells(X, 3) & Cells(X, 4) & Cells(3, Y))
   Next
Next
End Sub

iwangyi

附件----------

qnzxjly

昨天刚学的字典 今天练练手
食堂.zip (73.65 KB, 下载次数: 1)

2018-8-5 20:34 上传

点击文件名下载附件

Sub 汇总()
Set wb = Workbooks.Open(ThisWorkbook.Path & "\食堂.xls")
Set d = CreateObject("Scripting.Dictionary")
num = wb.Worksheets("食堂").[b2].End(xlDown).Row
With wb.Worksheets("食堂")
For i = 2 To num
d(.Cells(i, 2).Value) = d(.Cells(i, 2).Value) + .Cells(i, 13).Value * 1
Next i
End With
wb.Close 0
ThisWorkbook.Activate
For i = 4 To 9
Cells(i, 37) = d(CStr(Cells(i, 3).Value))
Next i
End Sub

iwangyi

建议1.将数据源与汇总放在同一工作簿中。
    2.汇总表中列标题日期单元格最好不要带没字，没有必要，若带汉字要对日期汉字进行字符串正则处理相当麻繁
    3.将数据源中的汇总字段不要设定为文格式，数字的文本格式怎么进行汇总？
    以上最基本，最基础的事项比解决问题更重要

wcy064141

iwangyi 发表于 2018-8-5 20:32
附件----------

为什么运行的是代码中断？