میخواهیم کل ستون هارا به فورمت عدد تبدیل کنیم.
کد زیر را استفاده میکنیم:
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