[已解决]求一自定函数。

excel06

求一自定函数。设置的参数最好少些。
比如起始单元，对称的个数。

见附件：

最佳答案

月排行榜 / 总排行榜

dongqing1998

2013-12-13 08:58

不知道是不是这个意思

跳转到最佳答案楼层

CheryBTL

为什么一定要自定义函数呢？直接用一个过程不就搞定了？

CheryBTL

请楼主测试：

1. Sub 个数之差()
   
2.     Dim ar, temp(9, 1), re(1 To 1, 0 To 9)
   
3.     Dim rnum As Integer, i As Integer, j As Integer, R As Integer
   
4.     ar = Sheets(1).Range("A1:A" & Sheets(1).[a65536].End(3).Row + 1)
   
5.     rnum = UBound(ar)
   
6.     For i = 0 To 1
   
7.         For j = 0 To 9
   
8.             R = rnum - i * 10 - j
   
9.             If ar(R, 1) <> "" Then
   
10.                 temp(Val(Mid(ar(R, 1), 1, 1)), i) = temp(Val(Mid(ar(R, 1), 1, 1)), i) + 1
    
11.                 temp(Val(Mid(ar(R, 1), 2, 1)), i) = temp(Val(Mid(ar(R, 1), 2, 1)), i) + 1
    
12.                 temp(Val(Mid(ar(R, 1), 3, 1)), i) = temp(Val(Mid(ar(R, 1), 3, 1)), i) + 1
    
13.             End If
    
14.         Next j
    
15.     Next i
    
16.     For j = 0 To 9
    
17.         re(1, j) = temp(j, 1) - temp(j, 0)
    
18.     Next j
    
19.     Sheets(1).[b284].Resize(1, UBound(re, 2) + 1) = re
    
20. End Sub
    

复制代码

dongqing1998

不知道是不是这个意思

yewei113

这个应该可以用技巧解决吧