Dán vào các ô chỉ hiển thị trong Excel 2016

Tôi thấy đoạn mã này từ Bob Umlas.

Tôi luôn sao chép và dán từ cùng một vùng, vì vậy tôi không cần phần cửa sổ bật lên. Làm thế nào tôi có thể chỉnh sửa mã để nó luôn sao chép từ $B$999:$B$1009 và dán vào $A$1:$A$1000?

Sub Copy_Filtered_Cells()
Đặt từ = Lựa chọn
Đặt too = Application.InputBox("Chọn phạm vi để sao chép các ô đã chọn vào", Type:=8)
Đối với mỗi ô trong từ
Cell.Copy
Đối với mỗi thứ trong đó cũng vậy
Nếu chiều cao hàng của toàn bộ hàng lớn hơn 0 thì
điều.PasteSpecial
Đặt too = thing.Offset(1).Resize(too.Rows.Count)
Lối ra
Kết thúc nếu
Kế tiếp
Kế tiếp
End Sub

Trả lời:

Hãy xem những điều sau đây

https://answers.microsoft.com/en-us/msoffice/forum/msoffice_excel-mso_other/pasting-into-visible-cells-only/ebec7959-60bd-4903-ad8e-391f2f8d8479

Hi vọng bạn sẽ tìm được giải pháp cho thắc mắc của mình.

Trả lời:

Tôi đã nhận được câu trả lời này và tôi sẽ thử.

phần mã gốc:

Đặt từ = Lựa chọn

Đặt too = Application.InputBox("Chọn phạm vi để sao chép các ô đã chọn vào", Type:=8)

đã sửa đổi:

Đặt từ = Phạm vi("$B$999:$B$1009")

Đặt quá = Phạm vi("$A$1:$A$1000")

hoặc nếu dành cho một bảng tính cụ thể:

Set from = ThisWorkbook.Worksheets("tên trang tính của bạn ở đây").Range("$B$999:$B$1009")

Đặt too = ThisWorkbook.Worksheets("tên trang tính của bạn ở đây").Range("$A$1:$A$1000")

Lưu ý: Có thể không hoạt động tốt trong các trường hợp đặc biệt, ví dụ như hàng từ 2 đến 1001 bị ẩn?