dùng hàm nào để bỏ khoảng trắng

Liên hệ QC

hoasenhong2017

Thành viên thường trực
Tham gia
2/2/17
Bài viết
273
Được thích
28
Mình có một file mong mọi người chỉ giúp, mình muốn bỏ khoảng trắng dư ở hai cột B và C, mình dùm hàm trim mà không được, ai biết chỉ giúp mình với. Mình cảm ơn.
 

File đính kèm

  • KS.xls
    29.5 KB · Đọc: 11
Mình có một file mong mọi người chỉ giúp, mình muốn bỏ khoảng trắng dư ở hai cột B và C, mình dùm hàm trim mà không được, ai biết chỉ giúp mình với. Mình cảm ơn.
Thử dùng code sau:
Mã:
Sub BoKhoangTrang()
  With Intersect(Columns("A:C"), ActiveSheet.UsedRange)
    .Cells = Evaluate("IF(" & .Address & "="""","""",TRIM(SUBSTITUTE(" & _
    .Address & ",CHAR(160),"" "")))")
  End With
End Sub
 
Lần chỉnh sửa cuối:
Thử dùng code sau:
Mã:
Sub BoKhoangTrang()
  With Intersect(Columns("A:C"), ActiveSheet.UsedRange)
    .Cells = Evaluate("IF(" & .Address & "="""","""",TRIM(SUBSTITUTE(" & _
    .Address & ",CHAR(160),"" "")))")
  End With
End Sub
Cảm ơn bạn @be09 đã chỉ mình, nhưng mình không biết về code nên mình dùng hàm theo cách của bạn @HieuCD cho dễ hiểu bạn à.
 
Web KT
Back
Top Bottom