em có cái vòng lặp mà lẫn quẩn quá mong các bro giúp cho

[maixuanvuong276]

Em muốn đánh Số thự tự từ 1 đến 1 số ở Ô A5, mà làm không được, mong các bro chỉnh lại code giúp e. Em cảm ơn nhiều ạ!

 

[Phuocam]

Em muốn đánh Số thự tự từ 1 đến 1 số ở Ô A5, mà làm không được, mong các bro chỉnh lại code giúp e. Em cảm ơn nhiều ạ!

Thử code này:

Sub thhanh()
Dim soCuoi As Long
Dim dong As Long, cot As Long, i As Long
dong = 5
cot = 4
soCuoi = Range("A5").Value
    For i = 1 To soCuoi
            Cells(dong, cot).Value = i
            cot = cot + 2
            If cot > 22 Then
                cot = 4
                dong = dong + 2
            End If
    Next i
End Sub

 

[maixuanvuong276]

Thử code này:

Sub thhanh()
Dim soCuoi As Long
Dim dong As Long, cot As Long, i As Long
dong = 5
cot = 4
soCuoi = Range("A5").Value
    For i = 1 To soCuoi
            Cells(dong, cot).Value = i
            cot = cot + 2
            If cot > 22 Then
                cot = 4
                dong = dong + 2
            End If
    Next i
End Sub

Cảm ơn bạn rất nhiều ạ!