Giúp mình tạo 1 macro (1 người xem)

[strange]

Mình muốn tạo một macro thực hiện xóa hết các ký tự dấu cách thừa với 1 loạt các cell mà mình chọn với bất kỳ bảng tính nào
Bình thường toàn phải dùng lệnh Trim() rồi copy giá trị của hàm vào ô cũ, khi nhiều cell cần sửa mất thời gian khiếp
Ai biết giúp với nhé, cảm ơn nhiều

 

[nghiaphuc]

Mình muốn tạo một macro thực hiện xóa hết các ký tự dấu cách thừa với 1 loạt các cell mà mình chọn với bất kỳ bảng tính nào
Bình thường toàn phải dùng lệnh Trim() rồi copy giá trị của hàm vào ô cũ, khi nhiều cell cần sửa mất thời gian khiếp
Ai biết giúp với nhé, cảm ơn nhiều

Bạn thử code này xem:
[GPECODE=vb]Sub mTrim()
Dim Cll As Range
For Each Cll In Selection.SpecialCells(2, 2)
Cll = WorksheetFunction.Trim(Cll)
Next
End Sub[/GPECODE]

 

[strange]

Ok được rồi, Thank bạn nhiều