code thêm ký tự vào chuỗi theo điều kiên (1 người xem)

[toanhue24]

Kính gởi quý anh/chị !
em rất mong anh/chị bớt chút thời gian giúp cho em với, em mới mò VBA nên có cái này rất gà mong a/c giúp cho em với.
Hiện em có file excel trong đó em muốn thêm một số ký tự vào chuỗi số có sẳn. em dùng code này:
Sub Test()
Dim Clls As Range
For Each Clls In Range("A3:A4343")
Clls = "CH00" & Clls
End Sub
Nhưng thưa a/c, nó có cái khó là em muốn đếm là ở ô Ai này nếu có 2 kí tự thì mình sẽ thêm vào là CH000, ví dụ: ô A4 có 2 kí tự 78 thì thêm CH00078.
Nếu có 3 ký tự là thêm CH00, Ví dụ A5 có 3 kí tự 112 thì thêm CH00112.
Có nghĩa chuỗi kí tự luôn luôn là 7 ký tự bao gồm CH đầu và 5 số nhưng hiện nay trên dữ liệu của em đã có đơn vị rồi, ô nào không đủ dữ lieu thì chèn thêm số 0 vào cho đủ.
ví dụ:
6==>CH00006
78==>CH00078
79==>CH00079
112==>CH00112
1234==>CH01234
12345==>CH12345
em gởi kèm dữ liệu ở đây mong anh giúp cho em. link: https://www.mediafire.com/?rehdtei1z11444r
em xin cảm ơn quý anh/chị trước!
Trân trọng,

 

[befaint]

Code:

Clls.value="CH" & Format(Clls.value, "0000#")