VBA Корректировка значений ячеек

VBA Корректировка значений ячеек

Заменить нули на пустые значения в выделенном диапазоне


Public Sub X2()
    Dim cel As Range
 
    On Error Resume Next
 
    For Each cel In Selection
        If cel.Value = 0 Then
            cel.Value = ""
        End If
    Next cel
End Sub


Поправить значения в столбце на текстовые значения

Sub m_1()
Dim oCell As Range
Dim LastRow As Long
Dim Colmn As String
Colmn = "c"
Columns(Colmn).NumberFormat = "@"
LastRow = Cells.SpecialCells(xlCellTypeLastCell).Row
For Each oCell In Range(Colmn & "1:" & Colmn & LastRow)
    oCell.Errors(xlNumberAsText).Ignore = True
    oCell.FormulaR1C1Local = oCell.FormulaLocal
    ' oCell.FormulaR1C1Local = Replace(oCell.FormulaLocal, ",", ".") ' заменить запятую точкой
Next oCell
End Sub