Option Explicit
Public Sub ZamienKolumne()
Dim i As Integer
i = 1
Do While (Worksheets("Arkusz1").Cells(i, 1).Value <> "")
Worksheets("Arkusz1").Cells(1, i).Value = Worksheets("Arkusz1").Cells(i, 1).Value
Worksheets("Arkusz1").Cells(i, 1).Value = ""
i = i + 1
Loop
End Sub |