Nhờ mọi người kiểm tra giúp vì sao vòng lặp của tôi lúc chạy lại bị treo

[jialink]

Tôi có viết một đoạn code để gán giá trị và kiểm tra. Kiểm tra các giá trị trong range A2:U2 (các giá trị được tạo ra ngẫu nhiên). Nếu có giá trị là 1 và range A1:U1 tương ứng trống thì gán giá trị 1 này lên hàng 1 tương ứng. Vòng lặp kết thúc khi toàn bộ range A1:U1 đều được gán giá trị 1. Nhưng tôi chạy có lúc thì được, nhưng đa phần là bị treo. Nhờ các anh/chị/bạn chỉ giúp tôi cách khắc phục. Xin cảm ơn. () tôi có gửi kèm file excel

 

[jialink]

Tôi có viết một đoạn code để gán giá trị và kiểm tra. Kiểm tra các giá trị trong range A2:U2 (các giá trị được tạo ra ngẫu nhiên). Nếu có giá trị là 1 và range A1:U1 tương ứng trống thì gán giá trị 1 này lên hàng 1 tương ứng. Vòng lặp kết thúc khi toàn bộ range A1:U1 đều được gán giá trị 1. Nhưng tôi chạy có lúc thì được, nhưng đa phần là bị treo. Nhờ các anh/chị/bạn chỉ giúp tôi cách khắc phục. Xin cảm ơn. () tôi có gửi kèm file excel

Xin lỗi tôi đã xử lý được nên không làm phiền mọi người nữa ạ, xin cảm ơn