Kā ar Excel samainīt vietām rindas ar kolonnām?
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
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.
2. Edit – paste special, Transpose.
principā to dara ar divām pogu kombinācijām:
1. Ctrl c (aka Edit – Copy)
2. Edit – paste special, Transpose.
un viss.
LOL