Witam,
Potrzebuję porady jak zmienić kod by makro zmieniało dane po lewej stronie na formę jak po prawej:
Kolumn z danymi jest dużo więcej ale to już chyba bez różnicy.
Sub Makro1()
'
' Makro1 Makro
'
'
Dim i As Integer
Dim x As Integer
Dim y As Integer
i = 1
' If Range("B" & i).Value = "" Then
' i = i + 1
'Else
'For i = 1 To 50
'If Range("B" & i).Value = "" Then
'i = i + 1
'Next i
'Else
x = Range("B" & i).Value
'MsgBox "X to " & x
For y = 1 To x
Range("B" & i).Value = "a"
i = i + 1
Next y
'End If
End Sub