Формат в ячейке.

[Hugo121]

ActiveCell заменить не на range("a1:b30"), а на ту ячейку, которую перебираете в цикле по этому допустим range("a1:b30")

[Alisherius]

Hugo121 если не трудно, можете кодом отписать, а то что то у меня не работает по этой системе.

[Hugo121]

Так вроде всё объяснил...

Sub RST()
Dim strTmp As String, i As Long '!
Dim c As Range
For Each c In Range("a1:b30")
    With c
        strTmp = .Text
        strTmp = Replace(strTmp, "-", "")
        If Len(strTmp) Mod 4 = 0 Then
            i = 4
            Do
                strTmp = Left(strTmp, i) & "-" & Right(strTmp, Len(strTmp) - i)
                i = i + 5
            Loop While i < Len(strTmp)
            .Value = strTmp
        End If
    End With
Next
End Sub

Код не проверял.

[Alisherius]

спасибо Aleksandr H. и мегаспасибо Hugo121. все работает

[digitalis]

Сообщение от Alisherius

... или прожку

https://cloud.mail.ru/public/BKmp/zpJPJTsdU

No thanks

[Казанский]

Вариант макроса, работает с выделенным диапазоном, выделять можно столбцы или строки целиком

Sub bb()
  With Intersect(Selection, ActiveSheet.UsedRange)
    .Value = Evaluate(Replace( _
      "INDEX(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(@,25,,""-""),21,,""-""),17,,""-""),13,,""-""),9,,""-""),5,,""-""),)" _
      , "@", .Address(, , Application.ReferenceStyle)))
  End With
End Sub