Đếm số thứ tự dựa vào dòng (2 người xem)

[bactu]

E có yêu cầu như file đính kèm. Mong các ACE giúp cách làm.

 

[phulien1902]

E có yêu cầu như file đính kèm. Mong các ACE giúp cách làm.

1 cách không công thức:

Sub STT_Chan_Le()
    Dim i%, k%
    For i = 10 To 21
        If i Mod 2 = 0 Then
            k = k + 1
            Cells(i, 3) = k
        ElseIf i Mod 2 <> 0 Then
            Cells(i, 5) = k
        End If
    Next
End Sub

 

[Phan Thế Hiệp]

E có yêu cầu như file đính kèm. Mong các ACE giúp cách làm.

Thử:
C10=IF(ISODD(ROW(A1)),INT((ROW(A1)-1)/2)+1,"")
E10=IF(ISEVEN(ROW(A1)),INT((ROW(A1)-1)/2)+1,"")
Thân.