Gán giá trị cho nhiều cell với VBA

[voduyminh0504]

Chào các bạn
Tôi muốn viết cái code để gán giá trị "SELECT" vào cell
Sub Code ()
Activesheel.Seclect
Range("A1").Value="SELECT"
(rồi sau đó cứ 50 dòng, nghĩa là A51, A101, A151, A201, ... cho đến khoảng 5000 hoặc hơn nữa)
End Sub

Vấn đề là lặp đi lặp lại Range ("...") thì rất chậm, và chẳng hay ho gì
Rất mong nhận được hỗ trợ của các bạn để lệnh VBA có thể xử lý nhanh vụ này

 

[BuiQuangThuan]

Rất mong nhận được hỗ trợ của các bạn để lệnh VBA có thể xử lý nhanh vụ này

Anh đưa file demo lên coi thử xem . biết đâu sẽ có cách

 

[tigertiger]

Chào các bạn
Tôi muốn viết cái code để gán giá trị "SELECT" vào cell
Sub Code ()
Activesheel.Seclect
Range("A1").Value="SELECT"
(rồi sau đó cứ 50 dòng, nghĩa là A51, A101, A151, A201, ... cho đến khoảng 5000 hoặc hơn nữa)
End Sub

Vấn đề là lặp đi lặp lại Range ("...") thì rất chậm, và chẳng hay ho gì
Rất mong nhận được hỗ trợ của các bạn để lệnh VBA có thể xử lý nhanh vụ này

Yên tâm chậm chỉ là cảm giác thôi, còn vài ngàn dòng chỉ với lặp máy tính không là gì cả
Vì tốc độ máy tính bạn đã biết lên hàng mấy GHz rồi
Vấn đề là bạn biết cách các tác vụ liên quan thôi, ví dụ Application.ScreenUpdating, Application.Calulation....

Và nhớ là For có Step - chắc cái này đã biết
Còn nhanh nữa có thể ARRAY?

 

[VetMini]

...
Vấn đề là lặp đi lặp lại Range ("...") thì rất chậm, và chẳng hay ho gì
Rất mong nhận được hỗ trợ của các bạn để lệnh VBA có thể xử lý nhanh vụ này

Kén dữ. Ra kết quả là được rồi. Còn phải đòi hỏi "hay ho" nữa !

Làm một cái vòng lặp. Union chúng lại trước khi gán trị.
Sub t()
Set x = Range("a1")
For i = 1 To 501 Step 50
Set x = Union(x, Range("a" & i))
Next i
x.Value = "SELECT"
End Sub

 

[voduyminh0504]

Cám ơn bạn rất nhiều.
Tôi chưa thử do hôm nay tôi có quá nhiều việc, và bây giờ mới thấy hướng dẫn của bạn.
Rất xin lỗi đã reply chậm hướng dẫn của bạn.

Bài đã được tự động gộp: 26/11/20

Cám ơn bạn rất nhiều.
Tôi chưa thử do hôm nay tôi có quá nhiều việc, và bây giờ mới thấy hướng dẫn của bạn.
Rất xin lỗi đã reply chậm hướng dẫn của bạn.

Tôi vừa áp dụng hướng dẫn của bạn.
Dùng "hay ho" thì đúng là chưa được, mà phải nói là "quá sức hay ho".
Tôi vừa tick một cái và đang định chờ nó chạy thì ... nó xong tát rồi.
Rất và rất cám ơn bạn.