- Sub bb()
- Dim arr(), i&, k&, arr1(1 To 99999, 1 To 2)
- Application.ScreenUpdating = False
- With Sheet1
- For i = 1 To 99999
- ReDim Preserve arr(1 To 2, 1 To i)
- arr(1, i) = Format(i, "00000")
- For k = 1 To Len(arr(1, i)) - 2
- If Val(Mid(arr(1, i), k, 1)) + Val(Mid(arr(1, i), k + 1, 1)) + Val(Mid(arr(1, i), k + 2, 1)) = 20 Then
- arr1(i, 1) = arr(1, i)
- arr1(i, 2) = 20
- Else
- arr1(i, 1) = arr(1, i)
- arr1(i, 2) = 0
- End If
- Next
- Next
- .[d1].Resize(UBound(arr1), 2) = arr1
- .[d1].Resize(UBound(arr1), 1).NumberFormat = "00000"
- End With
- End Sub
复制代码 |