Hỏi cách tự động lặp số theo điều kiện

[dolly]

Em có vấn đề như sau:
- Nhập dữ liệu cần lặp ở cột A
- Số lần lặp ở cột B
- Tự động điền dữ liệu lặp dữ liệu ở cột A theo điều kiện ở cột C
Cụ thể xem file đính kèm. Hiện nay em cứ phải điền dữ liệu rồi kéo kéo như vậy rất lâu nhất là khi số lần lặp lớn Các bác giúp em với ạ.

 

[ndu96081631]

Em có vấn đề như sau:
- Nhập dữ liệu cần lặp ở cột A
- Số lần lặp ở cột B
- Tự động điền dữ liệu lặp dữ liệu ở cột A theo điều kiện ở cột C
Cụ thể xem file đính kèm. Hiện nay em cứ phải điền dữ liệu rồi kéo kéo như vậy rất lâu nhất là khi số lần lặp lớn Các bác giúp em với ạ.

Đại khái thế này:

Sub Test()
  Dim Clls As Range
  For Each Clls In Range([A2], [A65536].End(xlUp))
    Range("E65536").End(xlUp)(2).Resize(Clls(, 2)).Value = Clls.Value
  Next
End Sub

Từ đó tự bạn tùy biến nhé!

 

[dolly]

Cám ơn bác. Rất thích hợp cho công việc của em ạ. Tiết kiệm được rất nhiều thời gian ạ.