Новая преобразовалка 606276 — VBA (Exel) и не только

Sub Преобразовать606276()

Max = Cells.SpecialCells(xlLastCell).Row

For i = 6 To Max
  Select Case shd.Range("E" & i).Value
     Case 60.21: shd.Range("E" & i) = 60.01
     Case 60.22: shd.Range("E" & i) = 60.02
     Case 60.31: shd.Range("E" & i) = 60.01
     Case 60.32: shd.Range("E" & i) = 60.02
     
     Case 62.21: shd.Range("E" & i) = 62.01
     Case 62.22: shd.Range("E" & i) = 62.02
     Case 62.31: shd.Range("E" & i) = 62.01
     Case 62.32: shd.Range("E" & i) = 62.02
     Case 76 To 76.9: shd.Range("E" & i) = 76.05
  End Select
  
  If Left(shd.Range("E" & i).Value, 2) = 76 And IsNumeric(Mid(shd.Range("E" & i).Value, 4, 2)) Then
            shd.Range("E" & i) = 76.05
  End If
  
Next i
End Sub

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