Xóa những khoảng trắng thừa trong dữ liệu

[hongphuong1997]

Em nhờ các thầy và anh chị sử cho em code như trong file đính kèm, em làm đi làm lại mà không được.
Em ghi ở Macro3 nhưng em sửa như macro4 mà không được
Em xin cảm ơn.

 

[huongmuine]

Phiền nhỉ. Tạm chữa cháy thế này. Viết cho nó thật đúng thì dài dòng quá.

Private Sub XoaKhoangTrangThuaCaCot(ByRef sh As Worksheet, ByVal ct As String)
' Hàm xoá tất cả các khoảng trắng thừa ở cột ct, trong sheet sh
Dim a, i As Long
i = sh.Cells(sh.Rows.Count, ct).End(xlUp).Row
a = sh.Range(ct & "1").Resize(i, Iif(i > 1, 1, 2)).Value
' nếu chỉ có 1 ô thì a sẽ trở về mặc định là trị của ô (string), resize ra 2 cột để ép nó phải lấy array
For i = 1 To UBound(a)
If a(i, 1) <> Empty Then a(i, 1) = Application.Trim(a(i, 1))
Next i
sh.Range(ct & "1").Resize(i - 1, 1).Value = a
End Sub

Xin cảm ơn VetMini đã nhiệt tình giúp đỡ.

 

[hongphuong1997]

Phiền nhỉ. Tạm chữa cháy thế này. Viết cho nó thật đúng thì dài dòng quá.

Private Sub XoaKhoangTrangThuaCaCot(ByRef sh As Worksheet, ByVal ct As String)
' Hàm xoá tất cả các khoảng trắng thừa ở cột ct, trong sheet sh
Dim a, i As Long
i = sh.Cells(sh.Rows.Count, ct).End(xlUp).Row
a = sh.Range(ct & "1").Resize(i, Iif(i > 1, 1, 2)).Value
' nếu chỉ có 1 ô thì a sẽ trở về mặc định là trị của ô (string), resize ra 2 cột để ép nó phải lấy array
For i = 1 To UBound(a)
If a(i, 1) <> Empty Then a(i, 1) = Application.Trim(a(i, 1))
Next i
sh.Range(ct & "1").Resize(i - 1, 1).Value = a
End Sub

Eo ơi, thế thì tự thêm dữ liệu vào bảng à bác ui?
Phương án chữa cháy này không được rùi bác ui.