[已解决]求高手帮忙做VBA，实现报表统计，谢谢。

清秋淡水

求高手帮忙做VBA，实现报表统计，谢谢，具体要求见附表《统计表实现》，谢谢。

《统计表实现》已按第一楼层主的建议做了补充，请帮忙再看一下，谢谢。

最佳答案

月排行榜 / 总排行榜

grf1973

2016-3-24 13:18

再来。

跳转到最佳答案楼层

sry660

楼主你的描述，不太理解，你最好模拟几组数据，并给出最后的效果，题意理解了，大家才好帮你

QCW911

顶！d=====(￣▽￣*)b

xiaofei1989

关键是问题不清楚啊。

清秋淡水

xiaofei1989 发表于 2016-1-30 14:27
关键是问题不清楚啊。

可能这个表有点复杂，比较难理解，你可以参考以下做好的VBA，看看是否能明白，此统计表和以下的统计表不一样的就是《统计表-实现后》工作表的AD列取值不一样，麻烦看一下是否能够理解，谢谢啦。

http://www.excelpx.com/thread-374086-1-1.html

grf1973

1. Sub grf()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     arr = Sheet1.Range("a1:ca" & Sheet1.[e65536].End(3).Row)
   
4.     brr = Sheets("不良代码").[a1].CurrentRegion
   
5.     For i = 3 To UBound(brr)      '不良原因和代码相对应
   
6.         d(brr(i, 1)) = brr(i, 2)
   
7.     Next
   
8.     ReDim crr(1 To 1000, 1 To 30)
   
9.     For i = 4 To UBound(arr)
   
10.         x = Trim(arr(i, 29)) '不良分类AC列
    
11.         Do While Len(x) > 0         'AC列不为空
    
12.             For k = 1 To Len(x)
    
13.                 If IsNumeric(Mid(x, k, 1)) Then Exit For
    
14.             Next
    
15.             bl = Left(x, k - 1): sl = Val(Mid(x, k))      '不良及数量
    
16.             r = r + 1: n = n + 1
    
17.             crr(r, 2) = arr(i, 5) '订单号
    
18.             crr(r, 10) = sl '不良数量
    
19.             crr(r, 11) = IIf(d.exists(bl), d(bl), bl) '不良原因（或代码）
    
20.             If n = 1 Then crr(r, 16) = arr(i, 49)   '作业时间P列值=原表AW列值    （只填 第一行）
    
21.             If n = 1 And arr(i, 4) <> "是" Then crr(r, 19) = arr(i, 17)    '作业时间S列值=原表Q列值  （只填 第一行）
    
22.             x = Trim(Replace(x, bl & sl, ""))
    
23.         Loop
    
24.         If Len(arr(i, 23)) > 0 Then         'W列不为空
    
25.             r = r + 1: n = n + 1
    
26.             crr(r, 2) = arr(i, 5) '订单号
    
27.             crr(r, 30) = arr(i, 79) & "报废，" & arr(i, 23) '确认内文
    
28.         End If
    
29.         If n = 0 And arr(i, 4) <> "是" Then           'W列为空,AC列为空,D列不等于“是”
    
30.             r = r + 1
    
31.             crr(r, 2) = arr(i, 5) '订单号
    
32.             crr(r, 19) = arr(i, 17)     '作业时间S列值=原表Q列值
    
33.         End If
    
34.         n = 0
    
35.     Next
    
36.     With Sheets(2)
    
37.         maxr = .[b65536].End(3).Row + 1
    
38.         .Cells(maxr, 1).Resize(r, UBound(crr, 2)) = crr
    
39.     End With
    
40. End Sub
    

复制代码

清秋淡水

grf1973 发表于 2016-3-18 10:19

师傅，下午好，我点击按钮后，提示：“该宏在该工作中不可用，或宏被禁用”，已确认宏是打开的，帮我看一下怎么回事， 谢谢，

grf1973

按钮右击，重新指定一下宏吧。我把模块设置了个名称，要重新指定宏为 “统计表实现.xls!grf.grf”

清秋淡水

grf1973 发表于 2016-3-23 14:52
按钮右击，重新指定一下宏吧。我把模块设置了个名称，要重新指定宏为 “统计表实现.xls!grf.grf”

师傅，可以使用了，谢谢，但发现有点小问题麻烦再帮忙看一下，“统计表实现后”中的S列几个“生产工时”的数据没有读取过来，麻烦看看，非常感谢。

grf1973

你原来的条件是第4列为”是“，才填写工时的。难道不是？