Vòng lặp

Vòng lặp For
Ví dụ:
Sub danhsoThutu()
       Dim i As Integer
       For i = 1 to 10000
              Cells(i, 2) = i
       next i
End Sub

Cells() : Chỉ giá trị của ô

Tại sao không nên dùng Msgbox  để kiểm tra biến

Giả sử với vòng For
Sub taisao()
For i=1 to 10
MsgBox "Xin chao == " & i
Next i
End Sub

Sẽ tạo ra 10 msgbox, nhấn ok mỏi tay luôn.

Tuy nhiên nếu sử dụng câu lệnh
Debug.Print"Xin chao ==" & 1
Kết quả sẽ vào cửa sổ Immediate, không cần phải nhấn ok 10 lần.