hoasenhong2017
Thành viên thường trực




- Tham gia
- 2/2/17
- Bài viết
- 273
- Được thích
- 28
=SUBSTITUTE(B1,CHAR(160),"")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ì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.
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 @HieuCD nhiều, lại là bạn giúp mình nữa rùi. Mình cũng đã làm cách giống bạn =TRIM(SUBSTITUTE(B1,CHAR(160),""). Cảm ơn bạn nhiều lắm.=SUBSTITUTE(B1,CHAR(160),"")
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 à.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