[求助] 恳请路过的高人帮帮看看，一个稍微复杂点的统计问题，先谢谢啦！！！

cotytome · 发表于 2013-1-12 10:55

本帖最后由 cotytome 于 2013-1-12 11:05 编辑

具体请看图片，谢谢！！！

test.zip (8.56 KB, 下载次数: 27)
)GOG95[%@S3EEI)44]8B7F0.jpg

dsmch · 发表于 2013-1-12 11:10

搭头=搭火？？

cotytome · 发表于 2013-1-12 11:16

本帖最后由 cotytome 于 2013-1-12 11:16 编辑

dsmch 发表于 2013-1-12 11:10
搭头=搭火？？

谢谢您的即时回复！！！出现搭头、搭火的，都认为是搭火的工作！再次感谢您的细心和回复！！！

dsmch · 发表于 2013-1-12 11:20

自定义函数：公式=aa(单元格）

cotytome · 发表于 2013-1-12 12:04

本帖最后由 cotytome 于 2013-1-12 15:40 编辑

dsmch 发表于 2013-1-12 11:20
自定义函数：公式=aa(单元格）

谢谢您的悉心帮助，现在的问题是，为什么我把统计出来的数字复制到其他的excel中，会出现#NAME?的乱码啊，如 )%VDV@(G@0V7A~Q]%5)R1@W.jpg

，还坑请您再指导一下，再次感谢您的帮助！！！

qqaa266 · 发表于 2013-1-12 13:05

已经按要求做好了

cotytome · 发表于 2013-1-12 16:19

本帖最后由 cotytome 于 2013-1-12 16:20 编辑

qqaa266 发表于 2013-1-12 13:05
已经按要求做好了

相当完美，谢谢您的帮助。。。。现在的问题是我要继续增加统计的内容，如在下面继续统计出“电能表校验”出现的次数（注：电能表现场校验、电能表校验、电能表检验，三个工作性质一样，都应统计为电能表校验出现的，统计原则与搭头、搭火一样）

自己试着修改了一下，但是还是出错。。。。。还恳请您帮忙看看，要怎么修改呢，再次感谢您的无私帮助，谢谢！！！

Sub dkj()
rw = Sheet1.Cells(65536, 1).End(xlUp).Row
arr = Sheet1.Range(Sheet1.Cells(2, 1), Sheet1.Cells(rw, 2))
rrw = Sheet1.Cells(65536, 6).End(xlUp).Row
brr = Sheet1.Range(Sheet1.Cells(2, 6), Sheet1.Cells(rrw, 7))
For j = 1 To rrw - 1
   brr(j, 2) = 0
Next
For i = 1 To rw - 1
      For j = 1 To rrw - 1
      If InStr(1, Replace(arr(i, 1), "搭头", "搭火"), brr(j, 1)) > 0 Then
         brr(j, 2) = brr(j, 2) + 1
      ElseIf InStr(1, Replace(arr(i, 2), "搭头", "搭火"), brr(j, 1)) > 0 Then
      brr(j, 2) = brr(j, 2) + 1
      End If

      If InStr(1, Replace(arr(i, 1), "电能表现场校验", "电能表校验","电能表检验"), brr(j, 1)) > 0 Then
         brr(j, 2) = brr(j, 2) + 1
      ElseIf InStr(1, Replace(arr(i, 2),"电能表现场校验", "电能表校验","电能表检验"), brr(j, 1)) > 0 Then
      brr(j, 2) = brr(j, 2) + 1
      End If
         Next
Next

   Sheet1.Range(Sheet1.Cells(2, 6), Sheet1.Cells(rrw, 7)) = brr
End Sub

cotytome · 发表于 2013-1-12 16:42

注：一个单元格中可能同时含有搭头和电能表现场校验

qqaa266 · 发表于 2013-1-12 17:13

cotytome 发表于 2013-1-12 16:19
相当完美，谢谢您的帮助。。。。现在的问题是我要继续增加统计的内容，如在下面继续统计出“电能表校验 ...

为了适应你的要求，以及后续增加的统计内容，特地增加了D，E两列来进行统计内容的标准化;
其中E列就是F列的标准化统计内容（如：搭火），D列是非标准化的统计内容（如：搭头）

dsmch · 发表于 2013-1-12 17:28

cotytome 发表于 2013-1-12 12:04
谢谢您的悉心帮助，现在的问题是，为什么我把统计出来的数字复制到其他的excel中，会出现#NAME?的乱码啊 ...

自定义函数必须有代码支持，按alt+f11查看代码

		自动登录	找回密码
密码			免费注册