singo1232001

¦^´_ 1# maiko





Sub abc()
y = 6
For i = 1 To y ^ 2 Step y
Cells(i, 1).Resize(6, 1) = i / 6 + 5 / 6  '<---¤½¦¡¦b¤U¤è
Cells(i, 2).Resize(6, 1) = Application.Transpose(Array(1, 2, 3, 4, 5, 6))
Next
End Sub

µo²{³W«ß
1¦C =1
7¦C =2
.......

³]Áp¥ß¤èµ{¦¡ ¥N¤Jy=ax+b
(   1=a+b
(   2=7a+b
-> a=1-b ¥N¤J 2=7a+b
-> 2=7(1-b)+b
-> -5=-6b  
-> b=5/6  ¥N¤J 1=a+b  
-> a=1/6
Àò±o¤èµ{¦¡  y=x/6+5/6

Àò±oµ{¦¡½X       i/6+5/6