Paste Dữ Liệu, Bỏ Qua Các Cell ẩn | 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 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
• Hàm và công thức Excel

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. Paste dữ liệu, bỏ qua các cell ẩn (1 người xem)

• Thread starter Thread starter doi_trai_co_don
• Ngày gửi Ngày gửi 16/3/13

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

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

doi_trai_co_don

Thành viên chính thức

Tham gia 27/1/07 Bài viết 52 Được thích 5 Xin chào mọi người. Tôi có việc này xin mọi người chỉ giáo. Giả sử tôi có 10 dòng dữ liệu từ 1-10. Bây giờ tôi muốn Paste vào dòng 11-22 mà trong đó có 2 dòng ẩn. Ý tôi là không Paste dữ liệu vào dòng ẩn. Xin cảm ơn.

Hong.Van

Busy

Tham gia 7/5/12 Bài viết 2,328 Được thích 1,765

doi_trai_co_don đã viết: Xin chào mọi người. Tôi có việc này xin mọi người chỉ giáo. Giả sử tôi có 10 dòng dữ liệu từ 1-10. Bây giờ tôi muốn Paste vào dòng 11-22 mà trong đó có 2 dòng ẩn. Ý tôi là không Paste dữ liệu vào dòng ẩn. Xin cảm ơn. Nhấp chuột vào đây để mở rộng...

Chọn khối muốn copy Bấm Alt+; Copy & paste

ndu96081631

Huyền thoại GPE

Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,978

Hong.Van đã viết: Chọn khối muốn copy Bấm Alt+; Copy & paste Nhấp chuột vào đây để mở rộng...

Cái người ta cần là PASTE BỎ QUA CÁC CELL ẨN chứ không phải là COPY BỎ QUA CÁC CELL ẨN Theo như tôi biết thì không có thao tác bằng tay nào làm được điều này ngoại trừ dùng công thức hoặc code VBA D

doi_trai_co_don

Thành viên chính thức

Tham gia 27/1/07 Bài viết 52 Được thích 5 Thế là không ai giúp được tôi àh. Buồn quá! hic! VBA cũng được. Vì số liệu của tôi rất nhiều các Pro ơi.

nhapmon

Thành viên tích cực

Tham gia 31/10/07 Bài viết 1,179 Được thích 880 trong khi đợi cao thủ giúp bạn code, bạn dùng mẹo sao đây. bạn chọn từ A11:A22 (trong đó có 2 dòng đã ẩn). nhấn F5--->chọn Special----> chọn Visible cell only. nhấn = ở cell đâu tiên (A1). nhấn Ctrl enter nó sẻ bỏ qua 2 dòng bị hide cho bạn

ndu96081631

Huyền thoại GPE

Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,978

nhapmon đã viết: trong khi đợi cao thủ giúp bạn code, bạn dùng mẹo sao đây. bạn chọn từ A11:A22 (trong đó có 2 dòng đã ẩn). nhấn F5--->chọn Special----> chọn Visible cell only. nhấn = ở cell đâu tiên (A1). nhấn Ctrl enter nó sẻ bỏ qua 2 dòng bị hide cho bạn Nhấp chuột vào đây để mở rộng...

Nhưng kết quả nhận được cũng đâu có đúng (thiếu mất 2 giá trị)

nhapmon

Thành viên tích cực

Tham gia 31/10/07 Bài viết 1,179 Được thích 880

doi_trai_co_don đã viết: Thế là không ai giúp được tôi àh. Buồn quá! hic! VBA cũng được. Vì số liệu của tôi rất nhiều các Pro ơi. Nhấp chuột vào đây để mở rộng...

thui thì bạn thử đoạn code này vậy. Sub Paste_to_Visible_Rows() Dim Nguon As Range, Dich As Range Dim i As Long, r As Long Set Nguon = Application.InputBox(prompt:="Chon Vung Copy ", Type:=8) Set Dich = Application.InputBox(prompt:="Chep Den ", Type:=8) For i = 1 To Nguon.Rows.Count Do Until Not Dich.Offset(r).Rows.Hidden r = r + 1 Loop Nguon.Rows(i).Copy Destination:=Dich.Offset(r) r = r + 1 Next i End Sub

ndunghuong

Thành viên mới

Tham gia 17/8/12 Bài viết 22 Được thích 1 Thật tuyệt vời, cảm ơn bạn

lehongphonglhp

Thành viên mới

Tham gia 9/5/11 Bài viết 13 Được thích 0 Nghề nghiệp kỹ sư thủy lợi nhapmon cho mình hỏi: Nếu copy cột có những dòng bị ẩn và past vào cột cũng có dòng bị ẩn thì có được kết quả như hiển thị ở cột nguồn không?

MeThuongNho

Thành viên thường trực

Tham gia 30/10/09 Bài viết 368 Được thích 77 Nghề nghiệp Sale - Planning Bạn dùng cách sort rồi paste là nhanh nhất. Hoắc sử dụng cột phụ để paste giá trị hoặc công thức sau đó xoá cột phụ đi là xong Mình vừa làm cho qui ước sp của mình xong, tới 10.000 dòng lận. mà chính xác khỏi phải nói hihi! Thân! H

hocon25118

Thành viên mới

Tham gia 29/12/15 Bài viết 22 Được thích 8

MeThuongNho đã viết: Bạn dùng cách sort rồi paste là nhanh nhất. Hoắc sử dụng cột phụ để paste giá trị hoặc công thức sau đó xoá cột phụ đi là xong Mình vừa làm cho qui ước sp của mình xong, tới 10.000 dòng lận. mà chính xác khỏi phải nói hihi! Thân! Nhấp chuột vào đây để mở rộng...

b cho mình hỏi cách của b là làm như thế nào,mình cảm ơn Đ

Đinh Duy Hòa

Thành viên mới

Tham gia 5/6/17 Bài viết 14 Được thích 1 Giới tính Nam

nhapmon đã viết: thui thì bạn thử đoạn code này vậy. Sub Paste_to_Visible_Rows() Dim Nguon As Range, Dich As Range Dim i As Long, r As Long Set Nguon = Application.InputBox(prompt:="Chon Vung Copy ", Type:=8) Set Dich = Application.InputBox(prompt:="Chep Den ", Type:=8) For i = 1 To Nguon.Rows.Count Do Until Not Dich.Offset(r).Rows.Hidden r = r + 1 Loop Nguon.Rows(i).Copy Destination:=Dich.Offset(r) r = r + 1 Next i End Sub Nhấp chuột vào đây để mở rộng...

Hướng dẫn cách dùng code rõ hơn được không bạn, sau khi mình chèn VBA vào excel rồi sau đó làm gì tiếp theo, gõ lệnh gì để thực hiện. Tks nhiều

phulien1902

GPE - My love

Tham gia 6/7/13 Bài viết 3,543 Được thích 4,425

Đinh Duy Hòa đã viết: Hướng dẫn cách dùng code rõ hơn được không bạn, sau khi mình chèn VBA vào excel rồi sau đó làm gì tiếp theo, gõ lệnh gì để thực hiện. Tks nhiều Nhấp chuột vào đây để mở rộng...

Cụ thể nhé: 1. Mở File Excel của bạn ra. 2. Copy Code 3.Gõ Alt +F11, vào Inser ---> Module 4. Paste Code vào Module 5.Ghi lại Để chạy Code bấm Run Macro( hoặc F5) Chỉ có vậy thôi. Đ

Đinh Duy Hòa

Thành viên mới

Tham gia 5/6/17 Bài viết 14 Được thích 1 Giới tính Nam

phulien1902 đã viết: Cụ thể nhé: 1. Mở File Excel của bạn ra. 2. Copy Code 3.Gõ Alt +F11, vào Inser ---> Module 4. Paste Code vào Module 5.Ghi lại Để chạy Code bấm Run Macro( hoặc F5) Chỉ có vậy thôi. Nhấp chuột vào đây để mở rộng...

Cảm ơn bạn, nhưng không phải mình hỏi cách cài code, mình cài rồi. Mình hỏi là cách dùng sau khi cài code, ấn F5 thì vẫn chưa dùng được. Bạn thử cài rồi ấn F5 xem, ở đây mình muốn làm sao để mục đích cuối cùng thực hiện việc "Paste dữ liệu bỏ qua các dòng ẩn"

HaCoChu

Thành viên mới

Tham gia 29/11/17 Bài viết 20 Được thích 21 Giới tính Nữ Bạn bấm F5 thế nào mà không được. Nếu muốn duyệt qua từng dong lệnh thì bấm F8. Muốn nó ngưng ở dòng nào thì bấm F9 vào dòng đó Lần chỉnh sửa cuối: 4/10/18

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

Đinh Duy Hòa đã viết: Cảm ơn bạn, nhưng không phải mình hỏi cách cài code, mình cài rồi. Mình hỏi là cách dùng sau khi cài code, ấn F5 thì vẫn chưa dùng được. Bạn thử cài rồi ấn F5 xem, ở đây mình muốn làm sao để mục đích cuối cùng thực hiện việc "Paste dữ liệu bỏ qua các dòng ẩn" Nhấp chuột vào đây để mở rộng...

Tham khảo bài viết ở Link sau: https://www.giaiphapexcel.com/diend...l-hiện-không-paste-các-cell-ẩn-filter.137815/ T

tongjet

Thành viên mới

Tham gia 29/7/11 Bài viết 5 Được thích 1 Giới tính Nam Thấy nhiều hướng dẫn không chi tiết và rõ ràng. Gửi mọi người 2 link để tự xem nhu cầu và cách sử dụng sao cho phù hợp với yêu cầu của mình nhé: Hầu hết mọi người thường có nhu cầu theo cách 2. Link rút gọn: youtu.be/mrDhkClPXEM youtu.be/frvrev_vSrM Link dài:

File đính kèm

• link thu thuat copy invisible cell_tongjet.txt link thu thuat copy invisible cell_tongjet.txt 402 bytes · Đọc: 207

Lần chỉnh sửa cuối: 5/5/19 T

Thúy Sa

Thành viên mới

Tham gia 19/9/20 Bài viết 47 Được thích 7

tongjet đã viết: Thấy nhiều hướng dẫn không chi tiết và rõ ràng. Gửi mọi người 2 link để tự xem nhu cầu và cách sử dụng sao cho phù hợp với yêu cầu của mình nhé: Hầu hết mọi người thường có nhu cầu theo cách 2. Link rút gọn: youtu.be/mrDhkClPXEM youtu.be/frvrev_vSrM Link dài: Nhấp chuột vào đây để mở rộng...

Video của anh chia sẻ rất hay ạ anh chỉ giúp em làm sao mình lấy mục XL campus và paste invible trong excel để thực hiện như video thứ nhất. Em cám ơn

hoangtuan.net

Thành viên thường trực

Tham gia 4/11/21 Bài viết 255 Được thích 177 Giới tính Nam

cantl đã viết: Thấy bạn có mấy video ở mấy bài gần đây, Quảng cáo hay miễn phí nhỉ? Nhấp chuột vào đây để mở rộng...

hoàn toàn miễn phí nhé bác! A

A HOANG 620

Thành viên mới

Tham gia 16/1/23 Bài viết 41 Được thích 3 Sub Paste_to_Visible_Rows() Dim Nguon As Range, Dich As Range Dim i As Long, r As Long Set Nguon = Application.InputBox(prompt:="Chon Vung Copy ", Type:=8) Set Dich = Application.InputBox(prompt:="Chep Den ", Type:=8) For i = 1 To Nguon.Rows.Count Do Until Not Dich.Offset(r).Rows.Hidden r = r + 1 Loop Nguon.Rows(i).Copy Destination:=Dich.Offset(r) r = r + 1 Next i End Sub anh/chị cho hỏi cái này khi dòng ẩn thì giải quyết được tốt, nhưng cột ẩn thì khi paste ra vẫn hiện dữ liệu đã ẩn. vậy mình có khắc phục được không anh/chị?

leonguyenz

Thành viên gạo cội

Thành viên BQT Moderator Tham gia 2/8/10 Bài viết 5,225 Được thích 9,026 Giới tính Nam

A HOANG 620 đã viết: Sub Paste_to_Visible_Rows() ... End Sub anh/chị cho hỏi cái này khi dòng ẩn thì giải quyết được tốt, nhưng cột ẩn thì khi paste ra vẫn hiện dữ liệu đã ẩn. vậy mình có khắc phục được không anh/chị? Nhấp chuột vào đây để mở rộng...

Anh dùng phương thức PasteSpecial để copy các ô hiển thị (Visible) là được: Mã: Sao chép. Range(vùng cần copy).SpecialCells(xlCellTypeVisible).Copy Range(ô cần paste).PasteSpecial xlPasteValues A

A HOANG 620

Thành viên mới

Tham gia 16/1/23 Bài viết 41 Được thích 3

leonguyenz đã viết: Anh dùng phương thức PasteSpecial để copy các ô hiển thị (Visible) là được: Mã: Sao chép. Range(vùng cần copy).SpecialCells(xlCellTypeVisible).Copy Range(ô cần paste).PasteSpecial xlPasteValues Nhấp chuột vào đây để mở rộng...

sub copypaste Dim Nguon As Range, Dich As Range Dim i, j As Long, r, k As Long Set Nguon = Application.InputBox(prompt:="Chon Vung Copy ", Type:=8) Set Dich = Application.InputBox(prompt:="Chep Den ", Type:=8) Nguon.Value = Nguon.Value Dich.Value = Dich.Value For i = 1 To Nguon.Rows.Count For j = 1 To Nguon.Columns.Count Nguon.SpecialCells(xlCellTypeVisible).Copy Dich.PasteSpecial xlPasteValues Next j Next i end sub bảng dữ liệu 2000 dòng, 10 cột thì sub chạy chậm và giật thì anh chị có cách nào giúp cho chạy nhanh và không giật không? xin cám ơn D

DeTong

Thành viên thường trực

Tham gia 18/3/24 Bài viết 260 Được thích 283

A HOANG 620 đã viết: bảng dữ liệu 2000 dòng, 10 cột thì sub chạy chậm Nhấp chuột vào đây để mở rộng...

Nếu đã viết code thì dùng mảng nhặt ra các dòng muốn filter, sao đó gán xuống sheet 1 lần ... thay vì copy từng cell như vậy... Tóm lại attach file lên (chỉ cần chừng 20 dòng), kết quả mong muốn, các thành viên sẽ có code cho bạn. A

A HOANG 620

Thành viên mới

Tham gia 16/1/23 Bài viết 41 Được thích 3

DeTong đã viết: Nếu đã viết code thì dùng mảng nhặt ra các dòng muốn filter, sao đó gán xuống sheet 1 lần ... thay vì copy từng cell như vậy... Tóm lại attach file lên (chỉ cần chừng 20 dòng), kết quả mong muốn, các thành viên sẽ có code cho bạn. Nhấp chuột vào đây để mở rộng...

đây là bảng nhờ anh chị giúp viết code, mình cần lấy dữ liệu cần, những cột, dòng không cần mình ẩn nó đi và khi mình dán ra bảng mình không có những dòng và cột đã ẩn

File đính kèm

• Copy & paste bo qua dong an - cot an.xlsm Copy & paste bo qua dong an - cot an.xlsm 21.5 KB · Đọc: 5

H

HUONGHCKT

Zalo 0986997214

Tham gia 30/8/12 Bài viết 1,923 Được thích 3,398 Donate (Paypal) Donate (Momo) Giới tính Nam

A HOANG 620 đã viết: đây là bảng nhờ anh chị giúp viết code, mình cần lấy dữ liệu cần, những cột, dòng không cần mình ẩn nó đi và khi mình dán ra bảng mình không có những dòng và cột đã ẩn Nhấp chuột vào đây để mở rộng...

Tham khảo code (vẫn là code cũ) và file đính kèm. Mã: Sao chép. Sub copypaste() Dim Nguon As Range, Dich As Range Set Nguon = Application.InputBox(prompt:="Chon Vung Copy ", Type:=8) Set Dich = Application.InputBox(prompt:="Chep Den ", Type:=8) Nguon.Value = Nguon.Value Nguon.SpecialCells(xlCellTypeVisible).Copy Dich.PasteSpecial xlPasteValues End Sub Cột ABC là cột tôi thêm số thứ tự để thử.

File đính kèm

• Copy & paste bo qua dong an - cot an.xlsm Copy & paste bo qua dong an - cot an.xlsm 25.8 KB · Đọc: 4

D

DeTong

Thành viên thường trực

Tham gia 18/3/24 Bài viết 260 Được thích 283 Thay đổi các cột muốn copy theo thứ tự trong mảng cột mCot + Đánh dấu x các dòng cần lấy… Mã: Sao chép. Sub BasicCopy() 'Copy nhung dong danh dau x Dim mNguon() ' mang Copy Dim mCot() 'mang cot Dim mDich() ' mang Paste mNguon = Sheet2.Range("b3:p500").Value mCot = [{1,2,11,9,14,7}] 'Index bat dau bang 0 ReDim mDich(1 To UBound(mNguon, 1), 1 To UBound(mCot)) Dim i, j, k As Long ' bien tang vong lap For i = 1 To UBound(mNguon) If mNguon(i, 1) = "x" Then ' neu cot B danh dau x k = k + 1 For j = 1 To UBound(mCot) mDich(k, j) = mNguon(i, mCot(j) + 1) Next End If Next i 'Xoa du lieu cu Call Xoa 'Gan ket qua moi xuong sheet Sheet2.Range("s3").Resize(k, UBound(mCot)).Value = mDich End Sub Sub Xoa() Sheet2.Range("s3:az500").ClearContents End Sub

File đính kèm

• CopySelectColumnsRows.xlsm CopySelectColumnsRows.xlsm 24.8 KB · Đọc: 5

Lần chỉnh sửa cuối: 8/1/25

VietHoangPhan

Thành viên chính thức

Tham gia 21/8/17 Bài viết 68 Được thích 19 Giới tính Nam Bác @DeTong không ngủ hay sao 3h:21 AM đã dậy gõ cọc cọc rồi ạ. hi

HeSanbi

Nam Nhân✨Hiếu Lễ Nghĩa Trí Tín✨

Tham gia 24/2/13 Bài viết 2,827 Được thích 4,603 Giới tính Nam @DeTong Nếu như muốn sao chép mà vẫn giữ các ô có định dạng số, màu phông chữ, thì mã này không phù hợp. Nếu ghi bị lỗi cần chạy lại, lúc cần Undo thì bó tay. Tham khảo thêm phương pháp xử lý XML và dán xem bạn nhé.

HeSanbi

Nam Nhân✨Hiếu Lễ Nghĩa Trí Tín✨

Tham gia 24/2/13 Bài viết 2,827 Được thích 4,603 Giới tính Nam @A HOANG 620 Bạn có thể thử phiên bản sao chép mảng bằng cách xử lý XML này Gán vào một nút nhấn:

'CopyDataTable [A1:N51],[R53]' Nhấp chuột vào đây để mở rộng...

Gán đối số, có xác định cột:

'CopyDataTable [A1:N51],[R53], ListColumns(1,3,4,5,7, 8)' Nhấp chuột vào đây để mở rộng...

Gán đối số tùy chọn, các đối số sau mặc định đều là xóa bỏ, muốn giữ lại thì nhập vào sau: keepFormulas - Giữ lại biểu thức​keepRowHidden - Giữ lại dòng ẩn​keepColumnHidden - Giữ lại cột ẩn​keepRowMerge - Giữ lại ô đã gộp theo dòng​keepColumnMerge - Giữ lại ô đã gộp theo cột​keepRowBlank - Giữ lại dòng trống​

'CopyDataTable [A1:N51],[R53], keepRowHidden(), ListColumns(1,3,4,5,7, 8)' Nhấp chuột vào đây để mở rộng...

Nếu đặt nút nhấn ở trang tính khác trang tính dữ liệu hãy thêm CodeName Worksheet: Sheet1.[A1:N51] Để tiết kiệm bộ nhớ, bạn cần sửa mã và đặt mã vào một Class Module.

File đính kèm

• CopyDataRange_v1.0.xlsm CopyDataRange_v1.0.xlsm 75.2 KB · Đọc: 11

Lần chỉnh sửa cuối: 8/1/25 A

A HOANG 620

Thành viên mới

Tham gia 16/1/23 Bài viết 41 Được thích 3

HeSanbi đã viết: @A HOANG 620 Bạn có thể thử phiên bản sao chép mảng bằng cách xử lý XML này Gán vào một nút nhấn: Gán đối số, có xác định cột: Gán đối số tùy chọn, các đối số sau mặc định đều là xóa bỏ, muốn giữ lại thì nhập vào sau: keepFormulas - Giữ lại biểu thức​keepRowHidden - Giữ lại dòng ẩn​keepColumnHidden - Giữ lại cột ẩn​keepRowMerge - Giữ lại ô đã gộp theo dòng​keepColumnMerge - Giữ lại ô đã gộp theo cột​keepRowBlank - Giữ lại dòng trống​ Nếu đặt nút nhấn ở trang tính khác trang tính dữ liệu hãy thêm CodeName Worksheet: Sheet1.[A1:N51] Để tiết kiệm bộ nhớ, bạn cần sửa mã và đặt mã vào một Class Module. Nhấp chuột vào đây để mở rộng...

dạ cám ơn bạn đã chỉ dẫn ạ Bài đã được tự động gộp: 10/1/25

HUONGHCKT đã viết: Tham khảo code (vẫn là code cũ) và file đính kèm. Mã: Sao chép. Sub copypaste() Dim Nguon As Range, Dich As Range Set Nguon = Application.InputBox(prompt:="Chon Vung Copy ", Type:=8) Set Dich = Application.InputBox(prompt:="Chep Den ", Type:=8) Nguon.Value = Nguon.Value Nguon.SpecialCells(xlCellTypeVisible).Copy Dich.PasteSpecial xlPasteValues End Sub Cột ABC là cột tôi thêm số thứ tự để thử. Nhấp chuột vào đây để mở rộng...

thay đổi nhỏ là được kết quả tốt hơn, cám ơn bạn giúp Bài đã được tự động gộp: 10/1/25

DeTong đã viết: Thay đổi các cột muốn copy theo thứ tự trong mảng cột mCot + Đánh dấu x các dòng cần lấy… Mã: Sao chép. Sub BasicCopy() 'Copy nhung dong danh dau x Dim mNguon() ' mang Copy Dim mCot() 'mang cot Dim mDich() ' mang Paste mNguon = Sheet2.Range("b3:p500").Value mCot = [{1,2,11,9,14,7}] 'Index bat dau bang 0 ReDim mDich(1 To UBound(mNguon, 1), 1 To UBound(mCot)) Dim i, j, k As Long ' bien tang vong lap For i = 1 To UBound(mNguon) If mNguon(i, 1) = "x" Then ' neu cot B danh dau x k = k + 1 For j = 1 To UBound(mCot) mDich(k, j) = mNguon(i, mCot(j) + 1) Next End If Next i 'Xoa du lieu cu Call Xoa 'Gan ket qua moi xuong sheet Sheet2.Range("s3").Resize(k, UBound(mCot)).Value = mDich End Sub Sub Xoa() Sheet2.Range("s3:az500").ClearContents End Sub Nhấp chuột vào đây để mở rộng...

cám ơn bạn đã hổ trợ mình. cách thêm 1 cách giải quyết nhanh hơn cho dữ liệu nhiều dòng, nhiều cột Lần chỉnh sửa cuối: 10/1/25 H

HUONGHCKT

Zalo 0986997214

Tham gia 30/8/12 Bài viết 1,923 Được thích 3,398 Donate (Paypal) Donate (Momo) Giới tính Nam

A HOANG 620 đã viết: dạ cám ơn bạn đã chỉ dẫn ạ Bài đã được tự động gộp: 10/1/25 thay đổi nhỏ là được kết quả tốt hơn, cám ơn bạn giúp Nhấp chuột vào đây để mở rộng...

Nhìn chung chỉ gỡ bỏ 2 vòng lặp vô ích trong code thôi là code sẽ chạy nhanh hơn mà vẫn cho ra kết quả đúng ý định. 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

D Xin giúp.......Kết hợp countifs và Sumproduct để đếm dữ liệu và tính số lượng tổng không trùng lặp với nhiều điều kiện (1 người xem)

• dieppk.nb92
• Hôm nay lúc 01:22
• Hàm và công thức Excel

Trả lời 2 Đọc 83 Hôm nay lúc 09:44 Phan Thế Hiệp H tìm kiếm nội dung liên kết giữa cac bảng , cac sheet trong excel (1 người xem)

• H_P
• Hôm qua, lúc 14:23
• Tìm kiếm, dò tìm và tham chiếu

Trả lời 1 Đọc 43 Hôm nay lúc 08:42 Gà Con yêu VBA N Công thức trích xuất riêng các ký tự trong chuỗi họ tên

• Ngựa con 2002
• Hôm qua, lúc 23:07
• Xử lý chuỗi ký tự

Trả lời 6 Đọc 60 Hôm nay lúc 01:35 dungpham01 D Q Nhờ các chị cho em xin công thức đếm bản ghi loại bỏ dữ liệu trùng lặp với nhiều điều kiện (1 người xem)

• QUANSUNG
• Hôm qua, lúc 10:55
• Hàm và công thức Excel

Trả lời 2 Đọc 80 Hôm nay lúc 00:02 dungpham01 D Cùng xây dựng file Gia Phả

• • 

• huuthang_bd
• 30/12/13
• Xây dựng ứng dụng.

Trả lời 36 Đọc 21K Hôm qua, lúc 16:15 le_vis L Thuật ngữ "Đối chiếu Unicode" quan trọng trong việc xử lý chuỗi ký tự (1 người xem)

• HeSanbi
• Hôm qua, lúc 15:41
• Xử lý chuỗi ký tự

Trả lời 0 Đọc 59 Hôm qua, lúc 15:41 HeSanbi D Công thức tính thuế thu nhập cá nhân mới nhất theo mức 5 bậc (2 người xem)

• Dinh Hong Nhung
• Thứ năm lúc 10:36
• Hàm và công thức Excel

Trả lời 14 Đọc 528 Hôm qua, lúc 10:43 Cúc Hr C D

• Question Question

Tách dòng tự động theo điều kiện bằng VBA

• • 

• duongnhuxuyen
• Thứ sáu lúc 15:39
• Lập Trình với Excel

Trả lời 3 Đọc 115 Hôm qua, lúc 07:17 HUONGHCKT H CHỌN VÀ SỬ DỤNG MÁY LỌC KHÔNG KHÍ

• • 
  • 

• PhanTuHuong
• 4/10/22
• Thư giãn

Trả lời 8 Đọc 2K Hôm qua, lúc 00:09 PhanTuHuong D

• Question Question

IN TỰ ĐỘNG TỪ DỮ LIỆU CÓ SẴN

• duongnhuxuyen
• 12/11/25
• Lập Trình với Excel

Trả lời 14 Đọc 439 Thứ sáu lúc 19:42 duongnhuxuyen D V Biểu diễn số đếm theo hình vẽ từ Shape

• Vũ Hải Sơn
• 2/12/25
• Hàm và công thức Excel

Trả lời 34 Đọc 656 Thứ sáu lúc 15:31 Vũ Hải Sơn V T Xử lý lỗi xuất hiện màu cam khi chọn 1 ô trong excel.

• Thúy Sa
• Thứ năm lúc 17:17
• Những vấn đề chung

Trả lời 1 Đọc 85 Thứ năm lúc 20:29 Maika8008 L

• Question Question

Tạo ComboBox để tìm kiếm tên

• lyvanthang
• Thứ năm lúc 10:36
• Lập Trình với Excel

Trả lời 4 Đọc 166 Thứ năm lúc 20:26 HUONGHCKT H T Điên đầu vì Countif

• TVT230279
• 5/12/25
• Hàm và công thức Excel

Trả lời 5 Đọc 250 Thứ năm lúc 11:30 87kilua H Quên mật khẩu khóa protect

• Hoale85
• 20/2/25
• Những vấn đề chung

Trả lời 22 Đọc 1K Thứ năm lúc 09:10 Gà Con yêu VBA

• Question Question

Hướng dẫn sửa lỗi không khởi động được ứng dụng Excel (1 người xem)

• • 
  • 

• HeSanbi
• Thứ tư lúc 23:52
• Lập Trình với Excel

Trả lời 0 Đọc 96 Thứ tư lúc 23:52 HeSanbi K Lập trình để xoá giá trị trong file PDF

• khoa289
• 28/11/25
• Excel và các ngôn ngữ lập trình khác

Trả lời 14 Đọc 578 Thứ tư lúc 17:05 khoa289 K E

• Question Question

VBA code thay thế cho pivot-table lấy top 10, bottom 10

• • 

• eagle12
• Thứ hai lúc 17:23
• Lập Trình với Excel

Trả lời 12 Đọc 334 Thứ tư lúc 15:26 87kilua TaxCode v4.21 - Add-in Tra cứu mã số thuế từ tổng cục thuế nhanh chóng

• • 
  • 

• HeSanbi
• 27/11/25
• Các Add-ins cho excel

Trả lời 15 Đọc 1K Thứ tư lúc 12:44 HeSanbi Bán sách Excel nâng cao để ủng hộ đồng bào bão lũ năm 2025!

• PhanTuHuong
• Thứ tư lúc 08:26
• Câu lạc bộ hoạt động xã hội

Trả lời 3 Đọc 234 Thứ tư lúc 12:12 PhanTuHuong 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

• Maika8008 32
• dungpham01 18
• thanthanhan 16
• ongke0711 16
• nguyenanhtruong2409 14
• vic_it 11
• nhhnam 10
• eagle12 10
• Vũ Hải Sơn 9
• Phan Thế Hiệp 9
• HUONGHCKT 9
• pycckuu410 8
• bsbnhh 7
• HeSanbi 7
• Hana2610 6
• Gà Con yêu VBA 6
• Phuocam 5
• ketoan113 5
• Emyeuexcel 5
• huuthang_bd 5

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

• Phan Thế Hiệp 53
• Maika8008 26
• ongke0711 17
• thanthanhan 13
• HeSanbi 9
• Cúc Hr 8
• dungpham01 8
• eagle12 7
• HUONGHCKT 7
• Mr.hieudoanxd 5
• befaint 5
• SA_DQ 4
• nguyenanhtruong2409 4
• pycckuu410 4
• Phuocam 4
• tieutuvodanh192 2
• Emyeuexcel 2
• nhhnam 2
• Dinh Hong Nhung 2
• huuthang_bd 2

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
• Hàm và công thức Excel

• 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