پرسش تغییر فرمت یک کاراکتر به عدد

[mohammad-ali]

درود
من یک سری عدد از یک فایل متی استخراج کردم که تعدادی رو در فایل اکسل به پیوست به عنوان نمونه قرار دادم
به چند روش برای تغییر اون به عدد، برای محاسبات امتحان کردم ولی نتونستم اون رو تغییر بدم
دوستان راهی برای حل این موضوع دارن
سپاس

دانلود فایل نمونه

[habib100]

Sub a()
With Rows(1).CurrentRegion
.Value = Evaluate("=IF(COLUMN(" & .Address & "),MID(" & .Address & ",2,LEN(" & .Address & ")-2))")
End With
End Sub


https://s28.picofile.com/file/846401...xphz.xlsx.html