تبدیل متن به عدد

[Amin_D]

با سلام
خروجی هایی که از یک نرم افزار میگیریم تمام سلول های آن حالت تکست دارند.
میخواستم ببینم چطوری میشه اونا (کل ستون ها یا بعضی از ستون های اون) رو به عدد تبدیل کرد؟
(با عرض پوزش :بغیر روشی که به صورت دستی این کار را انجام میشه انجام داد)
با تشکر

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[amir_ts]

با سلام
این کد ها رو تست کنید.

Sub ConvertTextToNumber()
Dim ws As Worksheet
Dim r As Range
For Each ws In Sheets
On Error Resume Next
For Each r In ws.UsedRange.SpecialCells(xlCellTypeConstants)
If IsNumeric(r) Then r.Value = Val(r.Value)
Next
Next
End Sub