Trang web hiển thị tốt nhất trên các trình duyệt mới và được bật Javascript.

Sub danhsothutu() Sub danhsothutu() Dim i As Integer For i = 1 To 100

DocBuoc

Sub danhsothutu()
Dim i As Integer
For i = 1 To 100
Cells(i, 2) = i
Next i

End Sub

trường hợp này nếu muốn chỉ đánh stt vào các dòng chẵn thì phải sửa tn mn?

DaoVanLong

Sub danhsothutu()
Dim i As Integer
For i = 1 To 100
Cells(i, 2) = i*2
Next i
End Sub

TrinhXuanTuyen

mình nghĩ là nên có cái hàm nếu row mà chia hết cho 2 thì đánh i, k thì trống mà k bik viết sao @@

SonDoan

Không cần. For i =1 to 100 step 2

PhanThanh

i=1
For j= 2 to 100 step 2
Cells(j,2) =i
i=i+1
Next j