Bạn chọn vùng màu vàng và nhấn Alt+; trước khi copy. Thực chất của việc nhấn tổ hợp phím này là chọn những ô không ẩn trong vùng đã chọn, tương tự việc chọn lệnh Goto\Special cells\Visible cells only.
Bạn có thích copy từ cột B sang cột C chỉ những giá trị không ẩn không ?
Sub cuchuoi()
Set from = Selection
Set too = Application.InputBox("Select range to copy selected cells to", Type:=8)
For Each cell In from
cell.Copy
For Each thing In too
If thing.EntireRow.RowHeight > 0 Then
thing.PasteSpecial Paste:=xlPasteValues
Set too = thing.Offset(1).Resize(too.Rows.Count)
Exit For
End If
Next
Next
End SubPhương pháp này giúp copy dữ liệu không ẩn vào vùng dữ liệu không ẩn. Từ cột B1,B2,B3,B5,B7 sang cột C1,C2,C3,C5,C7. Tôi nhớ một lần kế toán chỗ tôi cần tổng hợp dữ liệu kế toán 5 năm để quyết toán thuế. Sếp định huy động toàn công ty để làm mà vẫn khả năng sai. Tôi đã dùng phương pháp này để lọc tiền riêng của từng hạng mục photo,in, ấn, tiếp khách... ra các cột riêng đã tiết kiệm được thời gian, công sức bao người mà chính xác tuyệt đối. Ý nghĩa của code này ở ngoài đời thực là vậy đấy. Trân trọng.
Tôi chưa nhận thấy nó có điểm gì đặc biệt ở dòng đó ạ,vì tôi nghĩ khi copy pase cùng dòng nhưng khác cột như vậy nếu dòng 4 và dòng 6 bị ẩn thì dữ liệu không ẩn khi copy sang cột bên sẽ ẩn đi ạ.
Nó gần gần giống tấm phải lọc đỗ, lạc trộn lẫn nhau trong file như nè nè. Lúc ấy dữ liệu thực tế là 5 file về bảng kê chi tiết chi phí sản xuất kinh doanh dở dang; mỗi file có 1000-2000 dòng lẫn lộn giữa chi phí photo, tiếp khách, CPN, Linh kiện MT, thẻ ĐT, xăng xe, cước vận chuyển…cần tách giá riêng từng hạng mục như ở cột H,I,J như file gửi kèm. Tất cả trông vào code í í. Nhớ thực hiện đúng khẩu quyết 3 bước sẽ thấy ý nghĩa.
Đang rất bận việc không rảnh nói chuyện với #11. Hẹn lúc khác nhá. Bạn #11 thực tập kĩ sẽ thấy.Tôi thấy chẳng gì hay ho cả. Nếu code như bạn thì thà làm bằng tay Ctrl+G mà làm còn nhanh hơn...
Còn thực sự nếu dữ liệu rất nhiều thì code dạng khác nó hay hơn chứ không ai rảnh mà ngồi Filter -> Ctrl+G -> chạy Macro như bạn...Vừa thủ công vừa code cho Zách việc....
Thủ công ra thủ công, code chạy tự động thì ra tự động... Không chơi kiểu xăng pha nhớt...
Tôi biết bạn rất giỏi về code nhưng là trên nhưng dữ liệu mượt, lý tưởng như mẫu. Gặp dữ liệu lởm khởm, lổn ngổn bạn cũng zọt. Dữ liệu đỗ, lạc, khoai là dữ liệu mượt còn thực tế đỗ có thể là đỗ loại A, đỗ loại B, đỗ loại C... Giống như hạng mục in ấn lúc diễn giải ra thiên hình vạn trạng: in công trình A, photo hồ sơ tài liệu, In A2 bản X, In Ao bản Y....Hãy cứ ngủ ngon với dữ liệu ngon bạn nhé.
Hihi tui cũng tay ngang thôi. Tui làm trong ngành điện lực, do lập trình điện nhiều nên cũng nhiễm máu nghiên cứu luôn VBA. Tôi hôm nay mất nhiều thời gian chia sẻ về code này vì nhờ code này tôi đã được sếp thưởng riêng và biểu dương cuối năm. Đã làm cho bạn phải cười rồiCái chuyện hạng mục gì đó tôi rất hiểu....vì tôi cũng biết về kế toán...Nhưng cho dù nó có 100 hay 1000 mục lẫn lộn thì có sao đâu... Không cần code, dùng hàm cũng được. Chỉ cần lọc duy nhất ra....và dùng 1 cái hàm IF để áp dụng (với file trên # 10 của bạn)....thì cũng được.
P/s: về code két thì tôi chắc chắn 1 điều rằng tôi không giỏi hơn bạn (tôi là tay ngang, chẳng biết tí gì về lập trình - chỉ học code cho vui thôi - để giết thời gian rỗi ).Còn bạn tôi nghe đồn là dân lập trình bài bản...học hành đường hoàng - đọc bài của bạn thì cũng cho thấy được điều đó - code rất bài bản...)
Riêng tôi tham gia bài này là vì: thấy ở trên bạn nói rằng cái code của bạn (cho trường hợp này) rất hiệu quả...& rất có ý nghĩa so với làm bằng tay hay thay bằng 1 code khác thì tôi hơi thắc mắc và có í kiến vậy thôi...
#17 có gì hay thì chia sẻ cho anh em, còn cảm thấy không chia sẻ được thì hãy giữ lấy làm của riêng. #17 cứ dứ thế mình cũng chả quan tâm đâu
Tại sao mọi khi mình dùng go to đều ngon.
Bạn quay lại quá trình thao tác xem saoTại sao mọi khi mình dùng go to đều ngon.
Hôm nay gõ theo cách của bạn Alt+; lại lỗi nhỉ.
Tức là khi copy lấy giá trị không ẩn.
Có 10 dòng ẩn 7 dòng còn 3 dòng. Khi copy nó chỉ lấy dữ liệu của 2 dòng.
Còn 1 dòng nó bỏ.
Bao nhiêu lần dùng cách đấy mà lần đầu dính trường hợp này. Không hiểu chuyện gì xảy ra nữa.
Có thể dữ liệu thật có để 1 dòng tiêu đề, dữ liệu nháp thì không có.
