Giúp em Macro loại bỏ khoảng trắng trong Cell (1 người xem)

[alonelove]

Em có 1 file cân đối trích từ Fox ra, Các Cell đều có khoảng trắng phía trước và sau number nên không thể sum được.
Mong quý thầy và các bạn giúp làm 1 nút bấm trong Form có thể loại bỏ khoảng trắng ở cột C<D<E<F<G<H<I. . Miễn sao giá trị trong các cột đó có thể sum được. Em cảm ơn trước ạ

 

[Hoàng Trọng Nghĩa]

Em có 1 file cân đối trích từ Fox ra, Các Cell đều có khoảng trắng phía trước và sau number nên không thể sum được.
Mong quý thầy và các bạn giúp làm 1 nút bấm trong Form có thể loại bỏ khoảng trắng ở cột C<D<E<F<G<H<I. . Miễn sao giá trị trong các cột đó có thể sum được. Em cảm ơn trước ạ

Tôi làm cho bạn ở sheet A1, các sheet khác bạn tự làm nhé!

 

[Ba Tê]

Em có 1 file cân đối trích từ Fox ra, Các Cell đều có khoảng trắng phía trước và sau number nên không thể sum được.
Mong quý thầy và các bạn giúp làm 1 nút bấm trong Form có thể loại bỏ khoảng trắng ở cột C<D<E<F<G<H<I. . Miễn sao giá trị trong các cột đó có thể sum được. Em cảm ơn trước ạ

Khỏi Code, nút bấm.
Chọn cả vùng số liệu cần thiết, Ctrl+H, khung Find What ấn 1 dấu cách; Khung Replace with: bỏ trống, Ấn nút Replace All. Xong 1 giai đoạn.
Nếu dữ liệu chưa thành số thì Replace dấu phẩy như vậy 1 lần nữa.
-----------
Nói lại: Replace dấu phẩy trước, Replace dấu cách sau nhé.

 

[Hoàng Trọng Nghĩa]

Khỏi Code, nút bấm.
Chọn cả vùng số liệu cần thiết, Ctrl+H, khung Find What ấn 1 dấu cách; Khung Replace with: bỏ trống, Ấn nút Replace All. Xong 1 giai đoạn.
Nếu dữ liệu chưa thành số thì Replace dấu phẩy như vậy 1 lần nữa.

Ở đây không phải là dấu cách của thanh space đâu mà ấn 1 dấu cách! hihihi, muốn vậy chỉ cần copy 1 khoảng trắng trong 1 cell chứa số liệu, sau đó dán vào Find What rồi mới Replace All được!

 

[Ba Tê]

Ở đây không phải là dấu cách của thanh space đâu mà ấn 1 dấu cách! hihihi, muốn vậy chỉ cần copy 1 khoảng trắng trong 1 cell chứa số liệu, sau đó dán vào Find What rồi mới Replace All được!

Tui làm thử "gồi" mới post "chả lời" mà.
Mới Replace dấu phẩy là nó về dạng số gần hết gồi.
Ẹc...

 

[alonelove]

Ẹc, cảm ơn Hoàng Trọng Nghĩa và Ba Tê nhìu

Nhưng ý em là đang làm cái Form nó không hiện workbook do đó mới cần tạo nút bấm ấy ạ.

 

[Hoàng Trọng Nghĩa]

Ẹc, cảm ơn Hoàng Trọng Nghĩa và Ba Tê nhìu

Nhưng ý em là đang làm cái Form nó không hiện workbook do đó mới cần tạo nút bấm ấy ạ.

Là sao không hiểu? Cái form nào? Excel nào mà không có workbook?

 

[alonelove]

Là sao không hiểu? Cái form nào? Excel nào mà không có workbook?

Dạ anh ALT +F11 file lên thấy cái Form, em bỏ cái code hiện Form đi rồi. Giờ chỉ mong cái nút trên Form đó làm được việc là loại bỏ khoảng trắng để Sum giá trị thôi ạ ^^!

 

[Ba Tê]

Là sao không hiểu? Cái form nào? Excel nào mà không có workbook?

Nghĩa là "No star where" đó "bồ' ơi.

 

[thanhlanh]

Anh chàng này nói khó hiểu quá, nếu chỉ để sum được chỉ cần câu
Cells.Replace What:=Chr(32), Replacement:="", LookAt:=xlPart

Muốn làm cho tất cả các sheets thì chạy code:

Sub xoa_()
    Dim sh As Worksheet
    For Each sh In Sheets
        With sh
            .Cells.Replace What:=Chr(32), Replacement:="", LookAt:=xlPart
        End With
    Next
End Sub

Thử xem!

 

[Hoàng Trọng Nghĩa]

Dạ anh ALT +F11 file lên thấy cái Form, em bỏ cái code hiện Form đi rồi. Giờ chỉ mong cái nút trên Form đó làm được việc là loại bỏ khoảng trắng để Sum giá trị thôi ạ ^^!

Bạn sửa nút lệnh của bạn như thế này:

[GPECODE=vb]Private Sub CommandButton1_Click()
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual

Dim Sh As Worksheet
For Each Sh In ActiveWorkbook.Sheets
If Sh.Name <> "Tong" Then
Sh.Columns("C:I").Replace _
What:=Chr(32), _
Replacement:="", _
LookAt:=xlPart
Sh.Columns("C:I").Replace _
What:=Chr(160), _
Replacement:="", _
LookAt:=xlPart
End If
Next

.Calculation = xlCalculationAutomatic
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub
[/GPECODE]

Thêm 1 thằng Chr(160) vào nữa, thà thừa tí còn hơn là thiếu.

 

[alonelove]

Thanks anh nhìu nhá. Như vậy là Âu Cơ roài