Copy Khi Filter Dòng Bằng VBA | Giải Pháp Excel

Giải Pháp Excel
  • Trang chủ Có gì mới Hoạt động gần nhất Tác giả
  • Diễn đàn Tìm bài viết mới Tìm theo chuyên mục
  • Video New Video về Excel Video về tin học khác Tin tức về tin học chung
  • Thông tin mới Featured content Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
  • Tài nguyên Đánh giá mới nhất Tìm tài nguyên
  • Facebook
  • Đóng góp
Đăng nhập Đăng Ký Có gì mới? Tìm kiếm

Tìm kiếm

Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề Note Bởi: Tìm kiếm Tìm nâng cao…
  • Tìm bài viết mới
  • Tìm theo chuyên mục
Menu Đăng nhập Đăng Ký Install the app Install How to install the app on iOS

Follow along with the video below to see how to install our site as a web app on your home screen.

Note: This feature may not be available in some browsers.

  • Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc
  • Trang chủ
  • Diễn đàn
  • Những vấn đề chung
You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. Copy khi filter dòng bằng VBA (1 người xem)
  • Thread starter Thread starter tranphuson
  • Ngày gửi Ngày gửi 8/3/21
Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 2 (Thành viên: 0, Khách: 2) T

tranphuson

Thành viên thường trực
Tham gia 14/8/09 Bài viết 268 Được thích 10 Giới tính Nam Mình có 1 file sau khi filter dòng sau đó copy dữ liệu đã được filter lên phía trên bằng VBA: Dữ liệu ở Sheet "Pivot" cần copy từ Cột A, I, J, K, L, M, N, O, P => Copy lên dòng số 3 phía trên Xin cảm ơn 1615219567121.png

File đính kèm

  • Đơn hàng.xlsx Đơn hàng.xlsx 25.9 KB · Đọc: 5
Hoàng Trọng Nghĩa

Hoàng Trọng Nghĩa

Chuyên gia GPE
Thành viên BQT Moderator Tham gia 17/8/08 Bài viết 8,662 Được thích 16,727 Giới tính Nam Cho hỏi là nó luôn luôn có 8 mã thôi hả bạn? T

tranphuson

Thành viên thường trực
Tham gia 14/8/09 Bài viết 268 Được thích 10 Giới tính Nam
Hoàng Trọng Nghĩa đã viết: Cho hỏi là nó luôn luôn có 8 mã thôi hả bạn? Nhấp chuột vào đây để mở rộng...
Tạm thời là 8 mã như vậy, nếu sau này có thêm thì mình chỉnh sửa sau. Cảm ơn Hoàng Trọng Nghĩa

Hoàng Trọng Nghĩa

Chuyên gia GPE
Thành viên BQT Moderator Tham gia 17/8/08 Bài viết 8,662 Được thích 16,727 Giới tính Nam
tranphuson đã viết: Tạm thời là 8 mã như vậy, nếu sau này có thêm thì mình chỉnh sửa sau. Cảm ơn Nhấp chuột vào đây để mở rộng...
Nếu nhiều hơn VD là 20 mã đi, khi paste nó sẽ lấn vào cái Pivot tạo ra lỗi hoặc mất dữ liệu sao bạn? Lẽ ra bạn phải để cái Pivot ở một sheet và cái bảng phía trên ở một sheet mới an toàn chứ? T

tranphuson

Thành viên thường trực
Tham gia 14/8/09 Bài viết 268 Được thích 10 Giới tính Nam
Hoàng Trọng Nghĩa đã viết: Nếu nhiều hơn VD là 20 mã đi, khi paste nó sẽ lấn vào cái Pivot tạo ra lỗi hoặc mất dữ liệu sao bạn? Lẽ ra bạn phải để cái Pivot ở một sheet và cái bảng phía trên ở một sheet mới an toàn chứ? Nhấp chuột vào đây để mở rộng...
Hiểu ý bạn nói. Nhưng yêu cầu của kế toán cần làm trước vậy. Vui lòng giúp mình trước 8 mã này. Cảm ơn Hoàng Trọng Nghĩa

Hoàng Trọng Nghĩa

Chuyên gia GPE
Thành viên BQT Moderator Tham gia 17/8/08 Bài viết 8,662 Được thích 16,727 Giới tính Nam
tranphuson đã viết: Hiểu ý bạn nói. Nhưng yêu cầu của kế toán cần làm trước vậy. Vui lòng giúp mình trước 8 mã này. Cảm ơn Nhấp chuột vào đây để mở rộng...
Nếu chỉ có vậy thì code sẽ đơn giản thế này: Mã: Sao chép. Sub CopyPasteValue() Range("A24:A93,I24:P93").Copy Range("A3").PasteSpecial Paste:=xlPasteValues End Sub T

tranphuson

Thành viên thường trực
Tham gia 14/8/09 Bài viết 268 Được thích 10 Giới tính Nam
Hoàng Trọng Nghĩa đã viết: Nếu chỉ có vậy thì code sẽ đơn giản thế này: Mã: Sao chép. Sub CopyPasteValue() Range("A24:A93,I24:P93").Copy Range("A3").PasteSpecial Paste:=xlPasteValues End Sub Nhấp chuột vào đây để mở rộng...
Nếu mà khi filter dòng bên dưới thay đổi thì mình có cách nào copy không cần phải xác định dòng (Range("A24:A93,I24:P93").Copy) Vì dữ liệu có thể thay đổi về dòng khi nhưng vẫn là 8 mã này có mã con thì filter total sẽ không cố định dòng. Cảm ơn be_09

be_09

Biên Hòa, Đồng Nai
Tham gia 9/4/11 Bài viết 9,972 Được thích 9,884 Nghề nghiệp Công chức
tranphuson đã viết: Nếu mà khi filter dòng bên dưới thay đổi thì mình có cách nào copy không cần phải xác định dòng (Range("A24:A93,I24:p93").Copy) Vì dữ liệu có thể thay đổi về dòng khi nhưng vẫn là 8 mã này có mã con thì filter total sẽ không cố định dòng. Cảm ơn Nhấp chuột vào đây để mở rộng...
Thử code sau: Mã: Sao chép. Sub Dung_Copy() Dim DongCuoi As Long DongCuoi = Cells(Rows.Count, 1).End(xlUp).Row Union(Range("A15:A" & DongCuoi), Range("I15:P" & DongCuoi)).Copy Range("A2") End Sub T

tranphuson

Thành viên thường trực
Tham gia 14/8/09 Bài viết 268 Được thích 10 Giới tính Nam
be_09 đã viết: Thử code sau: Mã: Sao chép. Sub Dung_Copy() Dim DongCuoi As Long DongCuoi = Cells(Rows.Count, 1).End(xlUp).Row Union(Range("A15:A" & DongCuoi), Range("I15:P" & DongCuoi)).Copy Range("A2") End Sub Nhấp chuột vào đây để mở rộng...
Cảm ơn bạn đã hỗ trợ T

tranphuson

Thành viên thường trực
Tham gia 14/8/09 Bài viết 268 Được thích 10 Giới tính Nam
be_09 đã viết: Thử code sau: Mã: Sao chép. Sub Dung_Copy() Dim DongCuoi As Long DongCuoi = Cells(Rows.Count, 1).End(xlUp).Row Union(Range("A15:A" & DongCuoi), Range("I15:P" & DongCuoi)).Copy Range("A2") End Sub Nhấp chuột vào đây để mở rộng...
Cho mình hỏi thêm nếu copy thêm qua Sheet "Sum" thì phải chỉnh VBA này như thế nào? Hoàng Trọng Nghĩa

Hoàng Trọng Nghĩa

Chuyên gia GPE
Thành viên BQT Moderator Tham gia 17/8/08 Bài viết 8,662 Được thích 16,727 Giới tính Nam
tranphuson đã viết: Cho mình hỏi thêm nếu copy thêm qua Sheet "Sum" thì phải chỉnh VBA này như thế nào? Nhấp chuột vào đây để mở rộng...
Bạn muốn sheet nào cũng được, sửa tại đây: Union(Range("A15:A" & DongCuoi), Range("I15:P" & DongCuoi)).Copy Sheets("Sum").Range("A2") T

tranphuson

Thành viên thường trực
Tham gia 14/8/09 Bài viết 268 Được thích 10 Giới tính Nam
Hoàng Trọng Nghĩa đã viết: Bạn muốn sheet nào cũng được, sửa tại đây: Union(Range("A15:A" & DongCuoi), Range("I15:p" & DongCuoi)).Copy Sheets("Sum").Range("A2") Nhấp chuột vào đây để mở rộng...
Cảm ơn bạn đã giúp T

tranquynh.81

Thành viên mới
Tham gia 21/1/21 Bài viết 11 Được thích 3 Mình có 1 file có 3 sheet (dc, kd,md) , mình muốn copy các dòng từ sheet kd và md sang sheet dc . vì mình copy từng lần lâu quá khoảng 15000 dòng . mong các bạn giúp đỡ . Mình có gửi file cảm ơn .

File đính kèm

  • DC+md+kd 15.8.21 (HOI VBA).xlsx DC+md+kd 15.8.21 (HOI VBA).xlsx 318.4 KB · Đọc: 5
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

Maika8008 Sản phẩm từ Python với sự giúp đỡ của Copilot
    • Thích
    • Yêu thích
  • Maika8008
  • Thứ tư lúc 20:50
  • Excel và các ngôn ngữ lập trình khác
Trả lời 20 Đọc 426 Hôm qua, lúc 21:42 nguyendang95 N phuongnam366377 Xây dựng RPC Server cho Excel / Access bằng Delphi – Tận dụng lại DLL và bảo mật mã nguồn
  • phuongnam366377
  • Hôm qua, lúc 15:27
  • Excel và các ngôn ngữ lập trình khác
Trả lời 0 Đọc 33 Hôm qua, lúc 15:27 phuongnam366377 phuongnam366377 SA_DQ Copilot bình luận các ván cờ vua từng ngày.
    • Thích
  • SA_DQ
  • 3/11/25
  • Chia sẻ
Trả lời 83 Đọc 3K Hôm qua, lúc 12:40 SA_DQ SA_DQ HeSanbi
  • Đã giải quyết
FitRowXL v1.3 - Giãn dòng tự động và bổ trợ in ấn Excel (*01/2026 mới) (1 người xem)
    • Thích
    • Yêu thích
  • HeSanbi
  • 18/4/21
  • Lập Trình với Excel
Trả lời 79 Đọc 31K Hôm qua, lúc 12:17 HeSanbi HeSanbi V Một Excel add-in vibe coding
    • Thích
  • vietdang170
  • 28/1/26
  • Các Add-ins cho excel
Trả lời 22 Đọc 1K Hôm qua, lúc 09:19 Ttipit76 T ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
    • Cảm ơn
  • ongke0711
  • 6/10/24
  • Lập Trình với Excel
5 6 7 Trả lời 637 Đọc 94K Thứ sáu lúc 23:12 Diemnguyenqn Diemnguyenqn vuanhdungtb phân lớp đắp trong san nền và đường giao thông
  • vuanhdungtb
  • 20/1/10
  • Excel và Kỹ Thuật
Trả lời 19 Đọc 55K Thứ sáu lúc 23:03 hoangdung09x2 H TranThanhPhong Hàm EXACT
    • Thích
  • TranThanhPhong
  • 30/4/14
  • Dự án: Công thức & Hàm 97-2019
Trả lời 5 Đọc 9K Thứ năm lúc 20:46 ptm0412 ptm0412 vn81206 TRA CỨU MÃ SỐ THUẾ CÁ NHÂN QUA EXCEL
    • Buồn
  • vn81206
  • 2/2/23
  • Cơ sở dữ liệu
Trả lời 70 Đọc 27K Thứ năm lúc 10:29 minhhueyb21 M HeSanbi
  • Question Question
Trình điều khiển Web tải hóa đơn điện tử từ trang Misa (actapp.misa.vn/app)
    • Thích
    • Yêu thích
  • HeSanbi
  • Thứ năm lúc 09:56
  • Lập Trình với Excel
Trả lời 0 Đọc 118 Thứ năm lúc 09:56 HeSanbi HeSanbi xumipham1 Cách lấy dữ liệu từ nhiều cột theo nhiều điều kiện
  • xumipham1
  • Thứ năm lúc 08:49
  • Hàm và công thức Excel
Trả lời 2 Đọc 124 Thứ năm lúc 09:48 xumipham1 xumipham1 E
  • Đã giải quyết
VBA code tô màu ô excel theo điều kiện so sánh
  • eagle12
  • Thứ ba lúc 09:42
  • Lập Trình với Excel
Trả lời 4 Đọc 139 Thứ tư lúc 16:11 eagle12 E ongke0711
  • Question Question
Tra cứu thông tin mã số thuế (cập nhật lại code cũ)
    • Thích
    • Cảm ơn
    • Yêu thích
  • ongke0711
  • 24/7/25
  • Lập Trình với Excel
Trả lời 24 Đọc 2K Thứ tư lúc 14:14 kahainguyen K D Xin file excel về dự án đầu tư bao gồm các sheet liên kết từ danh mục đầu tư đến bảng kết quả kinh doanh
  • DoanTrongHuong
  • Thứ tư lúc 09:44
  • Excel và Các Biểu Đồ
Trả lời 0 Đọc 72 Thứ tư lúc 09:44 DoanTrongHuong D A File Excel kiểm phiếu bầu cử Quốc hội và HĐND các cấp
    • Thích
  • adua29
  • 9/4/21
  • Excel Ứng Dụng
Trả lời 19 Đọc 5K Thứ ba lúc 21:35 bac0986101092 bac0986101092 B Phần mềm quản lý bán hàng trên excel offline
  • buihoanganhminh
  • Thứ ba lúc 14:09
  • Hàm và công thức Excel
Trả lời 0 Đọc 137 Thứ ba lúc 14:09 buihoanganhminh B Nguyễn Duy Tuân [New] BSAC v3.0 bộ công cụ lập trình phần mềm chuyên nghiệp trong VBA
    • Thích
  • Nguyễn Duy Tuân
  • 24/9/20
  • BLUESOFTS: A-Excel, A-Tools
Trả lời 14 Đọc 4K Thứ ba lúc 10:14 Nguyễn Duy Tuân Nguyễn Duy Tuân T Sử dụng Google Sheets để tạo webapp nhận báo giá online
    • Cảm ơn
    • Yêu thích
  • thuctien
  • 15/2/26
  • Google Sheets
Trả lời 1 Đọc 298 Thứ ba lúc 10:13 hotboykute H Nguyễn Duy Tuân
  • Dán lên cao
Phiên bản mới Add-in A-Tools AI v10 (2024)
    • Thích
  • Nguyễn Duy Tuân
  • 13/9/24
  • BLUESOFTS: A-Excel, A-Tools
Trả lời 66 Đọc 13K Thứ ba lúc 09:40 Nguyễn Duy Tuân Nguyễn Duy Tuân H Chào cả nha! Xin tư vấn về câu chuyện quản lý nhân sự
    • Cười
  • hotboykute
  • 22/2/26
  • Những vấn đề chung
Trả lời 11 Đọc 270 Thứ hai lúc 17:42 HUONGHCKT H Xem thêm… Chia sẻ: Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

Thành viên có số lượng bài viết cao nhất tháng

  • HeSanbi 20
  • chothadiem 11
  • Michael Bit 9
  • SA_DQ 9
  • ongke0711 8
  • phuongnam366377 8
  • Maika8008 8
  • YêuCN 7
  • Gà Công Nghệ 6
  • HUONGHCKT 6
  • kahainguyen 6
  • ptm0412 6
  • nguyendang95 6
  • HieuCD 5
  • DeTong 4
  • Gà Con yêu VBA 4
  • Officexinh 4
  • hng1635 4
  • bac0986101092 4
  • vietdang170 4

Thành viên có điểm tương tác cao nhất tháng

  • HeSanbi 29
  • SA_DQ 18
  • GPE-Trợ Lý 13
  • HUONGHCKT 13
  • Maika8008 12
  • ongke0711 9
  • Quang_Hải 7
  • le_vis 6
  • HieuCD 6
  • LOGANWover 6
  • DeTong 5
  • Gà Con yêu VBA 5
  • vietdang170 5
  • Phuocam 3
  • pycckuu410 3
  • chiendich 3
  • Hai Lúa Miền Tây 3
  • Michael Bit 3
  • ptm0412 3
  • nguyendang95 3

Thời gian đếm ngược.

000 Ngày 00 Giờ 00 phút 00 giây Thân mời tham dự sự kiện sinh nhật GPE 2025
  • Trang chủ
  • Diễn đàn
  • Những vấn đề chung
  • Website này sử dụng cookies. Tiếp tục sử dụng trang này, đồng nghĩa với việc bạn chấp nhận website sử dụng cookies. Chấp nhận Tìm hiểu thêm.…
Back Top Bottom

Từ khóa » Filter Bằng Vba