Nhập liệu để hiển thị theo vùng

[thesaintzero]

Trước iên em chào các thầy và các tiền bối... em có 1 vài vấn đề nhỏ mong các thầy và các tiền bối cao thủ giúp đỡ------>>>> em có ghi yêu cầu trong file đính kèm mong các thầy và các tiền bối giúp em

 

[Ba Tê]

Trước iên em chào các thầy và các tiền bối... em có 1 vài vấn đề nhỏ mong các thầy và các tiền bối cao thủ giúp đỡ------>>>> em có ghi yêu cầu trong file đính kèm mong các thầy và các tiền bối giúp em

Đã có code lọc qua thì thêm code chép trở lại.
Khi chỉnh sửa xong ấn nút <XONG!>

 

[thesaintzero]

Cám ơn bạn Ba Tê đã giúp mình. Đúng ý mình rùi.....cảm ơn bạn rất nhiều.......

 

[be_09]

Trước iên em chào các thầy và các tiền bối... em có 1 vài vấn đề nhỏ mong các thầy và các tiền bối cao thủ giúp đỡ------>>>> em có ghi yêu cầu trong file đính kèm mong các thầy và các tiền bối giúp em

Theo nội dung bạn nêu trong File thì chỉ cần dùng Link là được, cách thực hiện như sau:
Bước 1: bạn gõ dấu = vào A6 xong click vào AA6 và nhấn Enter
Bước 2: bạn click vào A6 và Fill sang D6 tiếp theo Fill xuống D11 là được
Tương tự như vậy bạn làm cho các phần tiếp theo. Xem File đính kèm.

 

[Ba Tê]

Theo nội dung bạn nêu trong File thì chỉ cần dùng Link là được, cách thực hiện như sau:
Bước 1: bạn gõ dấu = vào A6 xong click vào AA6 và nhấn Enter
Bước 2: bạn click vào A6 và Fill sang D6 tiếp theo Fill xuống D11 là được
Tương tự như vậy bạn làm cho các phần tiếp theo. Xem File đính kèm.

Hổng phải vậy đâu à nghe. Thay đổi ô G1 xem nó có làm được việc gì không?
Híc! Hổng xem kỹ!

 

[thesaintzero]

Đúng rùi không phải vậy đâu bạn be09 ơi, bạn Ba Tê làm đúng yêu cầu của mình rùi, nhưng có 1 số chỗ mình xem vẫn không hiểu. Bạn có thể giải thích cái đoạn code này được không hay là bạn record macro ( nếu record bạn hướng dẫn mình với nhen vì mình hơi gà cái này--->>> toàn góp nhặt rùi tìm hiểu rùi viết code chứ chưa bao giờ làm cái record Macro này hjhjhj )
Dim Rng(), Arr(), i As Long
Rng = Sheet1.Range(Sheet1.[A1], Sheet1.[A65000].End(xlUp)).Value
Arr = Sheet1.Range("AA2:AE10").Value
For i = 1 To UBound(Rng, 1)
If Rng(i, 1) = Sheet1.[AA2].Value Then
Range("A" & i).Resize(9, 5).Value = Arr

cụ thể là từ cái đoạn For i=1 To UBound ( cho mình hỏi cái lệnh UBound là lệnh gì thế ? )
Cám ơn bạn rất nhiều