Xóa khoảng trắng thừa (1 người xem)

[dinhphuong9327]

Thân chào các A/C và các bạn GPE

Em có đọc trên diễn đàn và tìm thấy 01 file "Super Remove Space". File xử lý các khoảng trắng thừa rất hiệu quả. Tuy nhiên file bị lỗi xóa mất các text trước khoảng trắng đầu tiên. Em xin gởi lại file lên diễn đàn, rất mong mọi người điều chỉnh lại giúp.

Em xin cám ơn

 

[phulien1902]

Thân chào các A/C và các bạn GPE

Em có đọc trên diễn đàn và tìm thấy 01 file "Super Remove Space". File xử lý các khoảng trắng thừa rất hiệu quả. Tuy nhiên file bị lỗi xóa mất các text trước khoảng trắng đầu tiên. Em xin gởi lại file lên diễn đàn, rất mong mọi người điều chỉnh lại giúp.

Em xin cám ơn

Để xoá khoảng trắng thừa sao bạn phải dùng Code loằng ngằng thế.
Tham khảo Code dưới đây:

Option Explicit
Sub TrimABC()
    Dim LR As Range, cell As Range
    Set LR = Range("C2:C" & Range("C2").End(xlDown).Row & "")
    For Each cell In LR
        cell.Value = WorksheetFunction.Trim(cell.Value)
    Next cell
End Sub

 

[dinhphuong9327]

Cám ơn Phulien1902 nhiều

Mình không biết về Code VBA nên khi lên diễn đàn tìm kiếm được bài viết giải quyết được vấn đề thì copy về sử dụng thôi hihi .

Ah nhân tiện Phulien1902 cho mình hỏi, trong trường hợp mình muốn loại bỏ khoảng trắng (tương tự như trên) nhưng tại 1 vùng nào đó ( ví dụ như A1100, hoặc cả 1 sheet) thì phải thay đổi đoạn code trên như thế nào nhỉ?

Mong bạn hướng dẫn.

 

[phihndhsp]

Thân chào các A/C và các bạn GPE

Em có đọc trên diễn đàn và tìm thấy 01 file "Super Remove Space". File xử lý các khoảng trắng thừa rất hiệu quả. Tuy nhiên file bị lỗi xóa mất các text trước khoảng trắng đầu tiên. Em xin gởi lại file lên diễn đàn, rất mong mọi người điều chỉnh lại giúp.

Em xin cám ơn

có thể sử dụng Find và Replace để tìm và thay thế, nhấn vài lần là ok, khỏi mắc công suy nghĩ code kiết
tìm 2 khoản trắng, thay bằng 1 khoản trắng, làm vài lần là ok

 

[dinhphuong9327]

Cám ơn Anh Phihndhsp,

Phương pháp dùng Find và Replace có thể giải quyết được vấn đề. Tuy nhiên nếu trong 1 sheet có rất nhiều dữ liệu bị thừa khoảng trắng (tại nhiều hàng và cột khác nhau) và số lượng khoảng trắng thừa cũng khác nhau thì em nghĩ rất khó để biết mình đã replace đủ hết chưa

Nếu có 1 đoạn code nào đó đã được viết và áp dụng thì chắc sẽ nhanh và yên tâm hơn ạ hihi

Trân trọng

 

[phulien1902]

Cám ơn Phulien1902 nhiều

Mình không biết về Code VBA nên khi lên diễn đàn tìm kiếm được bài viết giải quyết được vấn đề thì copy về sử dụng thôi hihi .

Ah nhân tiện Phulien1902 cho mình hỏi, trong trường hợp mình muốn loại bỏ khoảng trắng (tương tự như trên) nhưng tại 1 vùng nào đó ( ví dụ như A1100, hoặc cả 1 sheet) thì phải thay đổi đoạn code trên như thế nào nhỉ?

Mong bạn hướng dẫn.

Để xóa khoảng trống trong vùng A1100, bạn thay dòng:

Set LR = Range("C2:C" & Range("C2").End(xlDown).Row & "")

Bằng dòng

Set LR = Range("a1:d100" & Range("a1").End(xlDown).Row & "")

 

[dinhphuong9327]

Cám ơn anh Phulien1902 nhiều ạ

Trân trọng