Dùng code thế nào để chuyển giá trị NUMBER thành TEXT

[ndu96081631]

Tôi có 1 bảng tính, trong vùng A1:H20 chứa các giá trị NUMBER... Xin hỏi các bạn tôi phải dùng code gì để biến chúng thành TEXT
Hiện tại tôi đang dùng For quét qua các cell như sau:

Option Explicit
Sub ConvertToText()
 Dim Clls As Range
 For Each Clls In [A1].CurrentRegion
   Clls.NumberFormat = "@"
   Clls.Value = Format(Clls, "@")
 Next
End Sub

Với dử liệu ít thì không có vấn đề, nhưng với dử liệu lớn hơn thì code này chạy rất chậm!
Vậy ngoài cách dùng For như trên còn cách nào khác khả thi hơn không?
Cãm ơn!

 

[Nguyễn Duy Tuân]

Tuân ơi... với VBA thì tôi như là dân ngoại đạo (còn ngu lắm)
Bạn có thể gợi ý thêm tí được không? Miển sao đạt được yêu cầu về tốc độ
Code tôi vừa làm xong ở trên tuy nhanh hơn trước nhưng thực chất vẩn chưa nhanh đâu (nhất là khi ráp vào 1 số file mà bên trong đã có công thức)

Em làm trên Delphi thì chạy tốt nhưng làm trên VBA đang bị lỗi. Bác đợi em chút, em đang test lại. Nói thì dễ nhưng làm báo lỗi loạn cả lên .

 

[loveforht87]

Mình vẫn chưa hiểu vấn đề: Convert number to text, sau khi convert xong sang text thì vẫn cộng như Number bình thường? Mục đích của vấn đề này làm j? E hơi ngu muội về Excel, mong các anh em thông cảm.