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?
Sub danhsothutu() Dim i As Integer For i = 1 To 100 Cells(i, 2) = i*2 Next i End Sub
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 @@
Không cần. For i =1 to 100 step 2
i=1 For j= 2 to 100 step 2 Cells(j,2) =i i=i+1 Next j