Mặc dù không được sử dụng thường xuyên trên trang web này, nhưng bạn có thể gặp phải trường hợp muốn sử dụng Vòng lặp Do Until trong Excel VBA. Mã được đặt giữa Do Until và Loop sẽ được lặp lại cho đến khi phần sau Do Until là true.

Đặt một nút lệnh trên trang tính của bạn và thêm các dòng mã sau:

Dim i As Integer

i = 1

Do Until i > 6

Cells(i, 1).Value = 20

i = i + 1

Loop

Kết quả khi bạn bấm vào nút lệnh trên sheet:

Excel VBA Do Until Loop

Giải thích: cho đến khi i cao hơn 6, Excel VBA đặt giá trị 20 vào ô ở giao điểm của hàng i và cột 1 và tăng i lên 1. Kết quả là, giá trị 20 sẽ được đặt vào cột A sáu lần (không bảy vì Excel VBA dừng khi tôi bằng 7).