Không copy các dòng đã ẩn?

[nguyencao29]

Bạn vào link này: https://www.youtube.com/watch?v=CqpUXujonSM
Xem hướng dẫn và làm theo nhé

 

[teutamteu]

Nhân tiện các bác cho em hỏi làm thế nào khi paste thì ko paste vào các dòng đã ẩn. Vì nhiều khi em paste, sau đó unhide thì em thấy là paste vào cả những dòng đã ẩn????

Mình tìm được 1 đoạn code này, anh em thử xem có đúng ý không nhé. Link đây:
- http://xaydung360.vn/diendan/em-nho-viet-code-paste-du-lieu-qua-vung-an--7268-1-1.html

Code đây nhé

1. Sub Paste_to_Visible_Rows()
2. Dim Nguon As Range, Dich As Range
3. Dim i As Long, r As Long
4. Set Nguon = Application.InputBox(prompt:="Chon Vung Copy ", Type:=8)
5. Set Dich = Application.InputBox(prompt:="Chep Den: (luu y: chi chon 1 o dau tien cua vùng can dán nhé: ", Type:=8)
6. For i = 1 To Nguon.Rows.Count
7. Do Until Not Dich.Offset(r).Rows.Hidden
8. r = r + 1
9. Loop
10. Nguon.Rows(i).Copy Destination:=Dich.Offset(r)
11. r = r + 1
12. Next i
13. End Sub

 

[nguyen6571gpex]

Chào cả nhà GPE!
Đọc, làm theo mãi mà không được nên lại nhờ các bạn giúp (File đính kèm)
- Cột R và cột S là số liệu năm trước. Yêu cầu năm nay: Khối lớp tăng lên 1 (lên lớp mới), Đồng thời tên lớp cũng tăng lên 1 và kí hiệu lớp giữ nguyên. (Còn tường hợp đặc biệt sẽ sửa thủ công sau)
- Mình đã làm cột phụ BA, BB, BC sau đó copy cột BA và BB paste trở lại cột R và S nhưng chỉ copy và paste những dòng đã được Filte có mã cột V là 34_339_12619_TH_DH. Khi làm như vậy dữ liệu cứ paste vào dòng không được lọc. Mong các bạn chỉ giúp. Trân trọng cảm ơn!

 

[nguyen6571gpex]

Có bạn nào giúp mình với!

 

[duc quang]

Chọn khối cần chép, nhấn F5, chọn special, đánh dấu vào Visible Cell onlys. Sau đó copy và paste.

 

[be_09]

Chọn khối xong f5 lại là được

Bạn có đọc mấy bài đầu không? Mà phán một câu xanh rờn vậy?

 

[befaint]

Bạn có đọc mấy bài đầu không? Mà phán một câu xanh rờn vậy?

.
Đây ạ. Em 'report' cả cụm mà chả ăn thua. Nói chung.. kệ thôi ạ!

 

[♫ђöล♥ßล†♥†µ♫]

.
Đây ạ. Em 'report' cả cụm mà chả ăn thua. Nói chung.. kệ thôi ạ!

View attachment 208481

Nhà họ có 6 bài. Anh 'report' cả 6 luôn

 

[phamhuuhiep]

Còn 1 cách này nữa, cũng khá đơn giản thôi:
- Chọn vùng bạn định Copy (bao gồm cả những dòng ẩn)
- Nhấn Alt+;
- Nhấn Ctrl+C , Ctrl+V
.....
(Thực chất cũng là cách của bác ThuNghi thôi)

mình làm cách này không được bạn ơi

 

[Xtwins]

Bạn vào link này:

Xem hướng dẫn và làm theo nhé

Cách bạn này work nè, mình cám ơn bạn.

 

[minhtam5583]

Mình tìm được 1 đoạn code này, anh em thử xem có đúng ý không nhé. Link đây:
- http://xaydung360.vn/diendan/em-nho-viet-code-paste-du-lieu-qua-vung-an--7268-1-1.html

Code đây nhé

1. Sub Paste_to_Visible_Rows()
2. Dim Nguon As Range, Dich As Range
3. Dim i As Long, r As Long
4. Set Nguon = Application.InputBox(prompt:="Chon Vung Copy ", Type:=8)
5. Set Dich = Application.InputBox(prompt:="Chep Den: (luu y: chi chon 1 o dau tien cua vùng can dán nhé: ", Type:=8)
6. For i = 1 To Nguon.Rows.Count
7. Do Until Not Dich.Offset(r).Rows.Hidden
8. r = r + 1
9. Loop
10. Nguon.Rows(i).Copy Destination:=Dich.Offset(r)
11. r = r + 1
12. Next i
13. End Sub

Thanks bạn nhiều lắm, thật đúng lúc mình đang rất cần!!!!!!