|
??? |
|
Option Explicit
Sub Macro1() Dim x(654) As Integer Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer Dim j As Integer For j = 123 To 654 x(j) = 0 Next j For a = 1 To 6 For b = 1 To 6 If a <> b Then For c = 1 To 6 If a <> c And b <> c Then For d = 1 To 6 If a <> d And b <> d And c <> d Then x(Application.Round(a * 100 + b * 10 + c + d / 10, 0)) = 1 End If Next d End If Next c End If Next b Next a Cells(1, 1).Value = 0 For j = 123 To 654 If x(j) Then Cells(1, 1).Value = Cells(1, 1).Value + 1 Cells(Cells(1, 1).Value, 2).Value = j Range("B" & Cells(1, 1).Value).Select End If Next j Range("A1").Select End Sub |
|
5月28日（木） 9:05:32
34555 |