[已解决]修改下代码

bhgyuj123

把 s(i) = 10 改成1到200里的尾数大于4的数
Sub 总30()
    On Error Resume Next
    Set d = CreateObject("scripting.dictionary")
    For Each Rn In Range("B3:D5000")
        If Not d.exists(Rn.Value) Then
            d.Add Rn.Value, 1
        Else
            d(Rn.Value) = d(Rn.Value) + 1
        End If
    Next
    k = d.keys
    s = d.Items
    ReDim arr(1 To UBound(s) + 1)
    For i = 0 To UBound(s)
        If s(i) = 10 Then
            t = t + 1
            arr(t) = k(i) * 1
        End If
    Next
    ReDim m(1 To t)
    For i = 1 To t
        m(i) = Format(Application.Small(arr, i), "000")
    Next i
    Range("A2").Resize(t, 1) = Application.Transpose(m)
End Sub

最佳答案

月排行榜 / 总排行榜

CheryBTL

2014-3-26 20:25

IF 改用以下条件即可：

1. IF s(i)>=1 and s(i)<=200 and (s(i) mod 10)>4 then

复制代码

跳转到最佳答案楼层

CheryBTL

IF 改用以下条件即可：

1. IF s(i)>=1 and s(i)<=200 and (s(i) mod 10)>4 then

复制代码

bhgyuj123

CheryBTL 发表于 2014-3-26 20:25
IF 改用以下条件即可：

如果1到200的条件不要,if (s(i) mod 10)>4 then 是这样吗

蓝粆

找个地儿学习~