Для работы с общими ОСВ

Public Count As Integer

Function GetNormalOSV_NEW(ByVal txt As String)

If Len(txt) = 6 And Mid(txt, 5, 2) = 10 Then
      GetNormalOSV_NEW = zamentochku(Mid(txt, 2, 5))
   
   ElseIf Len(txt) = 4 And Mid(txt, 3, 1)  0 Then
          GetNormalOSV_NEW = Left(txt, 1) + ",0" + Right(txt, 1)
          
   ElseIf Len(txt) = 5 And Mid(txt, 4, 1)  0 Then
          GetNormalOSV_NEW = Left(Right(txt, 4), 2) + ",0" + Right(txt, 1)
   ElseIf Len(txt) > 5 Then GetNormalOSV_NEW = Right(txt, Len(txt) - 1)
   Else: If Len(txt) > 0 Then GetNormalOSV_NEW = zamentochku(Right(txt, Len(txt) - 1))
End If
Count = 1
End Function

Sub NormalizeOSV_NEW()

If Count = 0 Then
  For i = 6 To Cells.SpecialCells(xlLastCell).Row
        txtTemp = Range("E" & i).Value
        Range("E" & i) = GetNormalOSV_NEW(txtTemp)
  Next i
  
    Dim r As Range
    With ActiveSheet
        Set r = Intersect(.UsedRange, .[e:e]).Offset(1)
        r.FormulaLocal = r.FormulaLocal
    End With
End If
Count = Count + 1
End Sub

Добавить комментарий

Ваш адрес email не будет опубликован.