Cách insert tự động dòng bằng vba (2 người xem)

[chungk54neu]

Em chào mọi người, em có 1 trường hợp thế này mong mọi người giúp đỡ, em có 1 file các dòng liên tiếp, bây giờ em muốn insert 3 dòng mới ở mỗi dòng, mọi người có phương án nào giúp em với, tks mn nhiều (em đã thể hiện mẫu ở 2 dòng trên cùng trong file mẫu ạ)

 

[befaint]

1/ Đánh số thứ tự từ 1 tới n cho một cột phụ nào đó.
2/ Copy số thứ tự này và paste xuống dưới 3 lần
3/ Sort bảng dữ liệu chứa toàn bộ số thứ tự đã chép thêm 3 lần kia, chiều A-Z theo cột phụ này.
Xong.

 

[chungk54neu]

1/ Đánh số thứ tự từ 1 tới n cho một cột phụ nào đó.
2/ Copy số thứ tự này và paste xuống dưới 3 lần
3/ Sort bảng dữ liệu chứa toàn bộ số thứ tự đã chép thêm 3 lần kia, chiều A-Z theo cột phụ này.
Xong.

mình không hiểu lắm

 

[befaint]

mình không hiểu lắm

Không cần hiểu trước. Bắt chước y chang, xong cái hiểu ngay.

 

[be_09]

Em chào mọi người, em có 1 trường hợp thế này mong mọi người giúp đỡ, em có 1 file các dòng liên tiếp, bây giờ em muốn insert 3 dòng mới ở mỗi dòng, mọi người có phương án nào giúp em với, tks mn nhiều (em đã thể hiện mẫu ở 2 dòng trên cùng trong file mẫu ạ)

1/ Hỏi về VBA mà trợ bằng thủ công vẫn chấp nhận được thì nghĩ cũng lạ?
2/ Insert dòng rồi có Copy giá trị từ trên xuống hay không?
3/ Nếu muốn Copy giá trị từ trên xuống thì phải có tiêu đề cụ thể, rõ ràng và cần có 1 sheet kết quả để người giúp còn hiểu Copy cột nào xuống, cột nào không Copy.
4/ Sao hỏi bài nhiều lần chi vậy bạn, có thể sẽ vi phạm nội quy, đọc lại nội quy để hiểu mình vi phạm cái gì, đây là Link bài viết kia Cách insert tự động dòng

 

[chungk54neu]

Không cần hiểu trước. Bắt chước y chang, xong cái hiểu ngay.

t làm được rồi, cảm ơn bạn nhiều nhé

 

[be_09]

t làm được rồi, cảm ơn bạn nhiều nhé

Tại bài 5 tôi ý kiến "có muốn Copy giá trị từ trên xuống hay không?" nhưng bạn không phản hồi nên tôi dựa theo nội dung tại bài 1 là Insert 3 dòng mới.
Bạn Copy cột D sheet1 và Paste sang cột D sheet2 rồi nhấn nút, muốn Insert bao nhiêu dòng tùy ý thì gõ con số vào H1.

 

[SA_DQ]

Có chí ít trên 2 cách dùng VBA để thêm dòng cho CSDL của bạn;
Nhưng trước khi đi vô cách nào đó, ta phải tiến hành khâu chuẩn bị dữ liệu (DL) (của file #1)
(Chuẩn bị): Xóa các ô trống (trắng - không DL) trong cột (bạn tự làm nha)
C1: Thực hiện nhiều lần như bài 2 cho thiệt nhuần nhuyễn như cháo chảy & đó mở bộ thu macro lên & ghi lại
Sau khi có nội dung macro rồi có thể nhờ cộng đồng VBA chỉnh sửa, bằng cách chuyển đứa con tinh thần của bạn lên đây nhờ trợ giúp.
C2: Chọn dòng cuối có DL (trên cột có DL, tất nhiên) & chọn thêm 2 dòng trống bên dưới nữa
Vô menu Insert để thêm dòng
Lúc đó ô 2203 chứa DL TPHVN00942 sẽ bị đảy xuống ô D2206
Sau khi bạn thực hiện các động tác này 1 cách chính xác cũng là lúc bạn phát hiện cách thêm dòng mới trên CSDL của bạn.
Thực hiện nhiều lần trước khi mở bộ thu macrole6n & ghi lại; Tiến hành chỉnh sửa cô ba này như đã tu chỉnh cho anh hai nó trước đó (C1)
C3: Làm như C2 nhưng từ trên xuống: Khó hơn nhiều nhưng làm được là điều chứng tỏ VBA của bạn bước lên bậc trung về chuyện thêm dòng
Muốn lên cao cấp nữa thì đến đây: http://www.danketoan.com/threads/cac-cach-them-dong-moi-vo-1-csdl-co-so-du-lieu-da-san.182915/

Chúc vui & thành công nha!