Ja kādreiz ir nepieciešamība, kā man tagad, samainīt datus vietām –  rindas ar kolonnām, tad ir dimbā, ja ir daudz datu.

Pirmajā attēla ir redzama mana situācija.

1.solis

atveram macros rakstāmo vidi. Otrais un trešais attēls No sākuma ir jānosauc macros, tad parādīsies poga “Create”, lai to izveidotu.

2.solis

Skaistājā VBA vidē būs jāraksta kods. attēls četri.

Pats skaistais kods:
Dim c As Integer
Dim r As Integer
For c = 1 To 11
For r = 1 To 40
Sheet3.Cells(c, r) = Sheet1.Cells(r, c)
Next r
Next c

11 un 40 manā gadījumā ir rindu un kolonu skaits, kas jāapskata. Man īstenībā liekas, ka man nav riktīgi tie skaitļi, bet tā kā viss darbojas, tad daudz par to nesatraucos.
Jaunos datus, protams, liekam citā “sheet”.

Pēdējā attēlā ir rezultāts

Labots

Vai arī kā normāli cilvēki:
1. Ctrl c (aka Edit – Copy)
2. Edit – paste special, Transpose.