Xóa kí tự trắng đầu dòng trong excel (1 người xem)

[giaosucan]

Chào các bác
em có 1 cell gồm nhiều dòng như sau

Line 1
Line 2
Line 3
Line 4

Có vấn đề là trc mỗi line hay có khoảng trắng, có cách nào để delete tự động như kí tự trắng này ko ạ
em dùng hàm trim thì nó chỉ cắt kí tự trắng ở Line 1, còn line khác ko cắt dc

Thank các bác nhiều ạ

 

[Quang_Hải]

Chào các bác
em có 1 cell gồm nhiều dòng như sau

Line 1
Line 2
Line 3
Line 4

Có vấn đề là trc mỗi line hay có khoảng trắng, có cách nào để delete tự động như kí tự trắng này ko ạ
em dùng hàm trim thì nó chỉ cắt kí tự trắng ở Line 1, còn line khác ko cắt dc

Thank các bác nhiều ạ

Cũng là code trước đã sử dụng, chỉ sửa lại chút cho phù hợp

Public Function xoadaudong(cell As Range) As String
Dim dl, kq, i
dl = Split(cell, ChrW(10))
For i = 0 To UBound(dl)
   kq = kq & Trim(dl(i)) & ChrW(10)
Next
xoadaudong = kq
End Function

 

[giaosucan]

Cũng là code trước đã sử dụng, chỉ sửa lại chút cho phù hợp

Public Function xoadaudong(cell As Range) As String
Dim dl, kq, i
dl = Split(cell, ChrW(10))
For i = 0 To UBound(dl)
   kq = kq & Trim(dl(i)) & ChrW(10)
Next
xoadaudong = kq
End Function

Ngon rồi thank bác nhiều nhá

 

[giaosucan]

Em muốn hỏi thêm là có cách nào mình select một số lượng ô nào đó rồi run macro để xoá kí tự trắng như trên dc ko ạ ?

 

[Quang_Hải]

Em muốn hỏi thêm là có cách nào mình select một số lượng ô nào đó rồi run macro để xoá kí tự trắng như trên dc ko ạ ?

Thử thế này chắc là ok, phải chọn vùng cần xử lý trước khi run code

Sub xoa_dau_dong()
Dim cell, dl, kq, i
For Each cell In Selection
  dl = Split(cell, ChrW(10))
    For i = 0 To UBound(dl)
      kq = kq & Trim(dl(i)) & ChrW(10)
    Next
   cell.Value = Left(kq, Len(kq) - 1)
   kq = ""
Next cell
End Sub