trích xuất dữ liệu bỏ qua cell chứa giá trị rỗng (3 người xem)

[laohac4i]

Gởi các anh / chị GPE:

Mình muốn trích xuất dữ liệu bỏ qua cell chứa giá trị rỗng như file đính kèm, nếu có thể anh/chị viết dùm code VBA càng tốt.

Các cell chứa giá trị rỗng thực chất có chứa công thức, nhưng vì bảng tính khá lớn & link nhiều thứ nên mình không tiện đưa lên.

Rất mong nhận được sự trợ giúp từ mọi người.

Cảm ơn rất nhiều.

 

[Ba Tê]

Gởi các anh / chị GPE:

Mình muốn trích xuất dữ liệu bỏ qua cell chứa giá trị rỗng như file đính kèm, nếu có thể anh/chị viết dùm code VBA càng tốt.

Các cell chứa giá trị rỗng thực chất có chứa công thức, nhưng vì bảng tính khá lớn & link nhiều thứ nên mình không tiện đưa lên.

Rất mong nhận được sự trợ giúp từ mọi người.

Cảm ơn rất nhiều.

Cái này dùng AutoFilter cột A, chọn NonBlanks rồi muốn trích đi đâu mà không được, đâu cần VBA đâu.

 

[laohac4i]

Cái này dùng AutoFilter cột A, chọn NonBlanks rồi muốn trích đi đâu mà không được, đâu cần VBA đâu.

Vấn đề ở đây là mình muốn nó hiện ra tự động bạn à, chứ làm = filter thì đơn giản rồi.

Mình đang làm file tử vi = excel, bảng tính của mình còn nhiều phần khác nữa, mỗi lần thay đổi thông tin ngày/tháng/năm thì kết quả sẽ tự động hiện ra, mình chỉ muốn loại bỏ những cell rỗng cho dễ nhìn thôi.

Mình không rành về VBA, nên mới nhờ sự trợ giúp của mọi người.

Dù sao cũng cảm ơn ý kiến của bạn.

 

[laohac4i]

sau 1 hồi tìm kiếm trên mạng, cuối cùng thì mình cũng đã có được cái mình cần từ 1 trang web nước ngoài (http://excel.bigresource.com/Track/excel-K44Fv6pu/), chỉ sử dụng công thức, mình share lại file cho ai có nhu cầu cần tham khảo.

 

[concogia]

sau 1 hồi tìm kiếm trên mạng, cuối cùng thì mình cũng đã có được cái mình cần từ 1 trang web nước ngoài (http://excel.bigresource.com/Track/excel-K44Fv6pu/), chỉ sử dụng công thức, mình share lại file cho ai có nhu cầu cần tham khảo.

Hình như bài dạng này trên diễn đàn mình nhiều mà bạn

Các cell chứa giá trị rỗng thực chất có chứa công thức, nhưng vì bảng tính khá lớn & link nhiều thứ nên mình không tiện đưa lên.

Hãy cẩn thận, nếu các cell thấy trống trơn của bạn mà chứa công thức thì coi chừng có khi công thức của bạn bị "tèo" á
Muốn dùng VBA thì bạn đưa một sheet giống giống như thật AE sẽ làm giúp bạn thôi, cái này đơn giản mà
Thân

 

[Hong.Van]

sau 1 hồi tìm kiếm trên mạng, cuối cùng thì mình cũng đã có được cái mình cần từ 1 trang web nước ngoài (http://excel.bigresource.com/Track/excel-K44Fv6pu/), chỉ sử dụng công thức, mình share lại file cho ai có nhu cầu cần tham khảo.

Cái này đâu cần fải tìm đâu xa, trên diễn đàn cũng có rất nhiều mà bạn, VD bạn tìm "lọc dữ liệu trùng, không trùng". Mặt khác nếu số liệu bạn nhiều mà dùng công thức mãng thì sẽ rất chậm. Bạn có thể tạo code bằng các Record Macro được mà!
Thân!

 

[laohac4i]

Cái này đâu cần fải tìm đâu xa, trên diễn đàn cũng có rất nhiều mà bạn, VD bạn tìm "lọc dữ liệu trùng, không trùng". Mặt khác nếu số liệu bạn nhiều mà dùng công thức mãng thì sẽ rất chậm. Bạn có thể tạo code bằng các Record Macro được mà!
Thân!

mình đã tìm trên diễn đàn rồi, không thấy kiểu như mình, mà chỉ toàn là dạng lọc dữ liệu trùng, không trùng như bạn nói thôi, nên mình mới phải tạo đề tài mới.

Cảm ơn mọi người đã quan tâm & chia sẻ.

 

[laohac4i]

Hình như bài dạng này trên diễn đàn mình nhiều mà bạn

Hãy cẩn thận, nếu các cell thấy trống trơn của bạn mà chứa công thức thì coi chừng có khi công thức của bạn bị "tèo" á
Muốn dùng VBA thì bạn đưa một sheet giống giống như thật AE sẽ làm giúp bạn thôi, cái này đơn giản mà
Thân

Công thức tạm thời vẫn chạy ổn, nếu bạn có thể viết giúp code VBA thì hay quá, vì mình gần như mù tịt về cái này, mục đích của mình là loại bỏ các cell trắng để dữ liệu xuất ra đứng liền nhau, chỉ có vậy thôi, như mình đã nói từ đầu, số cell không trắng xuất hiện cùng lúc tối đa là 9.
Hy vọng là bạn hiểu những gì mình giải thích.

 

[Ba Tê]

Công thức tạm thời vẫn chạy ổn, nếu bạn có thể viết giúp code VBA thì hay quá, vì mình gần như mù tịt về cái này, mục đích của mình là loại bỏ các cell trắng để dữ liệu xuất ra đứng liền nhau, chỉ có vậy thôi, như mình đã nói từ đầu, số cell không trắng xuất hiện cùng lúc tối đa là 9.
Hy vọng là bạn hiểu những gì mình giải thích.

Muốn VBA thì tặng bạn 1 code này

Private Sub CommandButton1_Click()
Dim Rng(), Arr(), I As Long, K As Long
    Rng = Sheet1.Range(Sheet1.[B2], Sheet1.[B65000].End(xlUp)).Value
ReDim Arr(1 To UBound(Rng, 1), 1 To 1)
    For I = 1 To UBound(Rng, 1)
        If Rng(I, 1) <> "" Then
            K = K + 1: Arr(K, 1) = Rng(I, 1)
        End If
    Next I
If K Then Sheet1.[G2].Resize(K).Value = Arr
End Sub

Với cột B là cột cần lọc, cột G là kết quả lọc.