Kenttien merkkien tutkiminen

Makro moduuliin:

Sub Sarakkeisiin()

Dim VikaRivi As Long
Dim Solu As Range
Dim YritysTunnus As String

VikaRivi = Range("A1048576").End(xlUp).Row
For Each Solu In Range("A1:A" & VikaRivi)
If Mid(Solu, 7, 1) = "-" Or Mid(Solu, 7, 1) = "A" Then
Solu.Offset(0, 1).Value = Solu.Value
End If
If (Mid(Solu, 6, 1) = "-") Then
YritysTunnus = Replace(Solu.Value, "-", "")
YritysTunnus = Left(YritysTunnus, 6) & "-" & Right(YritysTunnus, 1)
Solu.Offset(0, 2).Value = YritysTunnus
End If
Next Solu
End Sub