ML089

»Ý¨D1

1. Sub num1()
   
2.     P = 2
   
3.     For j = 1 To 10
   
4.         For i = 0 To 4
   
5.             Cells(2, P) = i & j Mod 10
   
6.             P = P + 1
   
7.         Next
   
8.     Next
   
9. End Sub

½Æ»s¥N½X

ML089

¦^´_ 4# papaya

if  i & j Mod 10 <> "00"
            Cells(2, P) = i & j Mod 10
            P = P + 1
endif

ML089

¦^´_ 6# papaya

P = P +1 ­n¦b IF ¥H¤º

Sub num1()
    P = 2
    For j = 1 To 10
        For i = 0 To 4
            If i & j Mod 10 <> "00" Then
                Cells(2, P) = i & j Mod 10
                P = P + 1
            End If
        Next
    Next
End Sub

ML089

»Ý¨D2¡A¬Ý¤£À´¡A»Ý­nÁ|¨Ò­pºâ

ML089

»Ý¨D 2

Sub num2()
    p = 2
    For j = 1 To 10
        For i = 0 To 4
            If i & j Mod 10 <> "00" Then
                Cells(3, p) = i & (10 + j - i) Mod 10
                p = p + 1
            End If
        Next
    Next
End Sub