Cần giúp đỡ tự động xóa ký tự thừa nếu ô dài hơn 150 ký tự

[thompt94]

Chào mọi người, nhờ mọi người hỗ trợ mình vấn đề này: mình có quá nhiều ô độ dài hơn 150 ký tự, bây giờ mình muốn tự động xóa ký tự thừa trong các ô đó, nếu ô nào <150 ký tự thì giữ nguyên. Nhờ mọi người giúp em với ạ

 

[ThangCuAnh]

Tui mới học Ét xeo thôi, biết sơ sơ vài công thức bỏ túi. Bạn dùng hàm LEFT đi. Rồi cứ nắm kéo thỏa mái

 

[thompt94]

Tui mới học Ét xeo thôi, biết sơ sơ vài công thức bỏ túi. Bạn dùng hàm LEFT đi. Rồi cứ nắm kéo thỏa mái

Hay quá cảm ơn bạn nha

 

[Ba Tê]

Chào mọi người, nhờ mọi người hỗ trợ mình vấn đề này: mình có quá nhiều ô độ dài hơn 150 ký tự, bây giờ mình muốn tự động xóa ký tự thừa trong các ô đó, nếu ô nào <150 ký tự thì giữ nguyên. Nhờ mọi người giúp em với ạ

Trong Box Lập trình. Thử Sub này:

Public Sub Left_150()
Dim Rng As Range
For Each Rng In Range("A1:A1000")   'Vung du lieu A1:A1000'
    If Len(Rng) > 150 Then Rng = Left(Rng, 150)
Next Rng
End Sub

 

[VetMini]

Chào mọi người, nhờ mọi người hỗ trợ mình vấn đề này: mình có quá nhiều ô độ dài hơn 150 ký tự, bây giờ mình muốn tự động xóa ký tự thừa trong các ô đó, nếu ô nào <150 ký tự thì giữ nguyên. Nhờ mọi người giúp em với ạ

Ký tự thứ 150 có tính là thừa không?