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

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 Replies to “Kā ar Excel samainīt vietām rindas ar kolonnām?”

  1. principā to dara ar divām pogu kombinācijām:
    1. Ctrl c (aka Edit – Copy)
    2. Edit – paste special, Transpose.
    un viss.

Leave a Reply

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.