Cách 2 dòng điền số 1- 5 dòng điền số 2!

[emgaingayngo]

Các bạn giúp mình viết một macro điền số ở cột A (khỏang 100 dòng) theo yêu cầu trên. Thanks Much!

 

[dmtdmtbb]

- Cái này chưa pro lắm nhưng sài tạm đi, để mình rút nhắn lại sau .

[B]Sub cua[/B]() [COLOR=green]' hay Sub gì đó hèhè[/COLOR]
Dim i , j : i = 1 : j = 1
Do
    If i * 2 > 100 Then
       Exit Do
    Else
      Cells(i * 2, 1) = "1"
    End If
i = i + 1
Loop
Do
    If j * 5 > 100 Then
       Exit Do
    Else
      Cells(j * 5, 1) = "2"
    End If
j = j + 1
Loop
[B]End Sub[/B]

 

[Thien]

- Cái này chưa pro lắm nhưng sài tạm đi, để mình rút nhắn lại sau .

[B]Sub cua[/B]() [COLOR=green]' hay Sub gì đó hèhè[/COLOR]
Dim i , j : i = 1 : j = 1
Do
    If i * 2 > 100 Then
       Exit Do
    Else
      Cells(i * 2, 1) = "1"
    End If
i = i + 1
Loop
Do
    If j * 5 > 100 Then
       Exit Do
    Else
      Cells(j * 5, 1) = "2"
    End If
j = j + 1
Loop
[B]End Sub[/B]

Bác xem lại code 1 chút nha. Nó chạy chưa đúng như yêu cầu của đề bài.

C.

 

[dmtdmtbb]

[B]Sub cuaBien[/B]() [COLOR=green]'Có món Sub cuaBiển đây[/COLOR]
Dim i: i = 2
Do
   If i + 2 > 100 Then
      Exit Do
   Else
      Cells(i, 1) = "1"
      i = i + 5
      Cells(i, 1) = "2"
      i = i + 2
   End If
Loop
[B]End Sub[/B]