Ako ti jos uvijek treba ...
Code:
Sub pcex()
Dim rng As Range
Dim i As Integer
Selection.CurrentRegion.Select
For Each rng In Selection
If InStr(rng.Text, "/") > 0 Then
Range(Cells(rng.Row, 1), Cells(rng.Row, 1).End(xlToRight)).Select
Selection.Copy
i = Cells(rng.Row - 1, 1).End(xlToRight).Column
Cells(rng.Row - 1, i + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
rng.EntireRow.Delete
End If
Next
End Sub
Samo selektiraj prvu celiju di trebas sortiranje,
također pretpostavka je da se krece od prve columne ... ako ne javi pa editiram kod