|
??? |
|
Option Explicit
Sub Macro1() Cells(1, 1).Value = 0 Dim n As Integer, nn As String Dim deta As Integer, j As Integer For n = 1 To 777 nn = Str(n) : deta = 0 For j = 1 To Len(nn) If Mid(nn, j, 1) = "4" Or Mid(nn, j, 1) = "9" Then deta = 1 Next j If deta Then Cells(1, 1).Value = Cells(1, 1).Value + 1 Cells(Cells(1, 1).Value, 2).Value = n End If Next n End Sub |
|
9月18日（木） 8:28:03
42392 |