Тема: VBA: замена запятой на точку в Ексель
Всем привет! Создаю макрос по замене в файле Ексель чисел с разделителем запятая, при формате ячеек Общий, на числа с разделителем точка, и изменении формата ячейки на Текстовый!
Хотел создать такой макрос на основе этого, но что-то не выходит, буду благодарен за помощь!
Sub Fix_Numbers_From_Dates()
Dim num As Double, cell As Range
For Each cell In Selection
If Not IsEmpty(cell) Then
If cell.NumberFormat = "General" Then
num = CDbl(Replace(cell, ".", ","))
Else
num = CDbl(Format(cell, "m,yyyy"))
End If
cell.Clear
cell.Value = num
End If
Next cell
End Sub