Giúp code lọc bỏ khoảng trắng ( Space ) (1 người xem)

[minhtuan55]

Chào cả nhà GpE !
Em muốn dùng 1 đoạn code để loại bỏ khoảng trắng thay vì dùng hàm Trim. Ví dụ vùng dử liệu tên hàng từ B1:B100 thì sau khi lọc xong thì dữ liệu tên hàng xuất ra vẫn năm ở vị trí cũ là B1:B100

 

[phulien1902]

Chào cả nhà GpE !
Em muốn dùng 1 đoạn code để loại bỏ khoảng trắng thay vì dùng hàm Trim. Ví dụ vùng dử liệu tên hàng từ B1:B100 thì sau khi lọc xong thì dữ liệu tên hàng xuất ra vẫn năm ở vị trí cũ là B1:B100

Bạn thử với:

Sub abc()
    Application.ScreenUpdating = False
    With Sheets(1).Range("B4:B30")
        .Value = Application.Trim(.Value)
        .Replace Chr(160), ""
    End With
    Application.ScreenUpdating = True
End Sub

 

[minhtuan55]

Bạn thử với:

Sub abc()
    Application.ScreenUpdating = False
    With Sheets(1).Range("B4:B30")
        .Value = Application.Trim(.Value)
        .Replace Chr(160), ""
    End With
    Application.ScreenUpdating = True
End Sub

Cho em hỏi đoạn
Application.ScreenUpdating = False
Application.ScreenUpdating = True
có tác dụng gì a