[已解决]求各位帮忙：复杂情况的页数统计

frankzhang21

1. Public Sub 统计()
   
2.     Dim x, arr, n, a
   
3.     For x = 2 To 8
   
4.         arr = Split(CStr(Cells(x, 1)), "、")
   
5.             For n = 0 To UBound(arr)
   
6.                 If arr(n) Like "*.*" Then
   
7.                     Mid(arr(n), InStr(arr(n), "."), 2) = ""
   
8.                     Mid(arr(n), InStr(arr(n), "."), 2) = ""
   
9.                     If arr(n) Like "*-*" Then
   
10.                         a = CInt(Right(arr(n), Len(arr(n)) - InStr(arr(n), "-"))) - CInt(Left(arr(n), InStr(arr(n), "-") - 1)) + 1
    
11.                     End If
    
12.                 End If
    
13.                 If arr(n) Like "*-*" Then
    
14.                     a = CInt(Right(arr(n), Len(arr(n)) - InStr(arr(n), "-"))) - CInt(Left(arr(n), InStr(arr(n), "-") - 1)) + 1
    
15.                 Else
    
16.                     a = 1
    
17.                 End If
    
18.                 Cells(x, 2) = Cells(x, 2) + a
    
19.             Next n
    
20.         Erase arr
    
21.     Next x
    
22.             
    
23. End Sub
    
24. 
    

复制代码

懒得用嵌套函数了，跑跑循环好了。

PS：你的A6单元格是不是算错了？应该是39吧

PPS：不好意思，写完才发现你要的是函数

jayzhouyu

frankzhang21 发表于 2017-7-6 23:05
懒得用嵌套函数了，跑跑循环好了。

PS：你的A6单元格是不是算错了？应该是39吧

大神，感谢！
已经非常好了！我可以把数据复制出来，执行代码再黏贴进去

jayzhouyu

苏子龙 发表于 2017-7-6 21:50
函数比较难，就自定义吧

谢谢大神！
看了一下附件，给我用了好几个方法啊~太感谢了！

jayzhouyu

二呗 发表于 2017-7-6 18:59
IF(ISNUMBER(--TRIM(MID(SUBSTITUTE(SUBSTITUTE($A2,"-","_"),"、",REPT(" ",99)),COLUMN(A1)*99-98,99))), ...

太感谢了！这么多人热心帮助