Cell "RỖNG BÌNH THƯỜNG" và cell "BỊ CÔNG THỨC LÀM CHO RỖNG" có gì khác nhau?

[ThangCuAnh]

VẬy thì bạn post file và code lên đây đi, mọi người xem và optimize cho bạn.

 

[giaiphap]

Tui có dùng vòng lặp for next và đã giải quyết được nhưng chậm quá, (có những sheet nó quay ~90 giây, tùy theo số dòng nó duyệt) nên lên đây nhờ các anh chị trợ giúp tìm cách thực hiện nhanh hơn.

Bạn quét vùng cần kiểm tra và cho chạy thử code này xem được không nhé.

Sub GPE()
Dim Rng As Range, cRng As Range
For Each cRng In Selection
    If TypeName(cRng.Value) <> "Empty" Then
        If Rng Is Nothing Then
            Set Rng = cRng
        Else
            Set Rng = Union(Rng, cRng)
        End If
    End If
Next cRng
   If Not Rng Is Nothing Then Rng = Empty
End Sub

 

[ExcelQN]

VẬy thì bạn post file và code lên đây đi, mọi người xem và optimize cho bạn.

Dạ, cảm ơn anh nhiều. Suốt chủ nhật lăn lộn với vấn đề này, tôi vừa tìm ra đoạn code vừa ý, đạt 99.99% yêu cầu.

và chia sẻ với anh và mọi người, ai có nhu cầu thì tham khảo:
Trang này:

Fix Blank Excel Cells Copied From Database - Contextures Blog

When you copy data to Excel, from another application, blank cells in the data can cause problems. Everything looks okay, at first glance, but the database

contexturesblog.com

Bài đã được tự động gộp: 23/6/19

Dạ, cảm ơn anh nhiều. Suốt chủ nhật lăn lộn với vấn đề này, tôi vừa tìm ra đoạn code vừa ý, đạt 99.99% yêu cầu.

và chia sẻ với anh và mọi người, ai có nhu cầu thì tham khảo:
Trang này:

Fix Blank Excel Cells Copied From Database - Contextures Blog

When you copy data to Excel, from another application, blank cells in the data can cause problems. Everything looks okay, at first glance, but the database

contexturesblog.com

Chỉ có điều không hiểu số tiền 4 đô la thôi ($$$$), nhưng vận dụng đúng yêu cầu là OK.

 

[ThangCuAnh]

Đừng dùng TypeName, nó chậm gần trăm lần so với VarType đó

 

[befaint]

chỉ minh họa

Anh mới vô diễn đàn nên chưa quen đó thôi.
Ở đây, phần lớn hỏi một đằng còn sự thật là nẻo khác. Vì khó mà tưởng tượng được ý tưởng của tác giả phong phú cỡ nào..
Nên có một cách anh có thể tham khảo: Luôn luôn không bận tâm tới nội dung của chủ thớt mà chỉ cần hỏi: cuối cùng chủ thớt cần làm gì mà thôi.

 

[ThangCuAnh]

Bạn ExcelQN test thử file này thử, xem tốc độ có chấp nhận được không ?
Tôi test với select nhiều cột thì thấy tương đối OK, nhưng select toàn bộ sheet thì Out of memory