VBA ja matriisin kääntäminen

Tsitsu

hei kirjoitin alla olevan koodin kääntääkseni matriisin sen olan yli. olisiko jollakulla ideoita siihen miten tämän voisi tehdä helpommin?

Private Sub MatrixTranspose()
Dim Kolumni As Integer
Dim rivi As Integer
Dim RiviIndexi, KolumniIndexi As Integer

kolumni = Worksheets("sjukhus").Range("XFD1").End(xlToLeft).Column
rivi = Worksheets("sjukhus").Range("A1048576").End(xlUp).row

Dim kustannusArray() As Variant
ReDim KustannusArray(rivi, kolumni)

Dim Inversarray() As Variant
ReDim Inversarray(kolumni, rivi)

For RiviIndexi = 1 To rivi
For kolumniIndexi = 1 To kolumni
KustannusArray(riviIndexi - 1, kolumniIndexi - 1) = Cells(riviIndexi, kolumniIndexi)
Worksheets("sjukhus").Cells(kolumniIndexi 10, riviIndexi).Value = KustannusArray(riviIndex - 1, kolumniIndex - 1)
Next kolumniIndexi
Next riviIndexi

End Sub

1

602

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • ustisT

      Tuolla saa transponoitua valitun alueen=)

      Sub Transponoi()
      Dim alue As Range
      Dim rivit As Integer
      Dim sarakkeet As Integer
      Dim arvo() As Single
      Set alue = Selection
      rivit = alue.Rows.Count - 1
      sarakkeet = alue.Columns.Count - 1
      ReDim arvo(rivit, sarakkeet)
      For j = 0 To sarakkeet
      For i = 0 To rivit
      arvo(i, j) = alue(1, 1).Offset(i, j).Value
      Next
      Next
      alue.ClearContents
      For j = 0 To sarakkeet
      For i = 0 To rivit
      alue(1, 1).Offset(j, i).Value = arvo(i, j)
      Next
      Next
      End Sub

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Vain vasemmistolaiset rakennemuutokset pelastavat Suomen

      Kansaa on ankeutettu viimeiset 30+ vuotta porvarillisella minäminä-talouspolitiikalla, jossa tavalliselta kansalta on ot
      Maailman menoa
      53
      3532

    2. Persut huutaa taas: "kato! muslimi!"

      Persut on lyhyessä ajassa ajaneet läpi kaksi työntekijöiden oikeuksien heikennystä, joita se on aiemmin vastustanut. Pe
      Maailman menoa
      31
      2949

    3. Menen nyt koisimaan

      Ja en ehkä palaa tänne. Asia on nyt loppuunkäsitelty ja totuus tuli ilmi
      Ikävä
      28
      2594

    4. onko kaivattusi

      vaarallinen? :D
      Ikävä
      76
      2534

    5. Olisiko sinulla

      Jonossa vaihtoehtoja, ehkä
      Ikävä
      52
      2232

    6. Haluaisin rakastaa sinua

      Ja olla sinulle se oikea... Rakastan sinua 💗💗💗
      Ikävä
      18
      2231

    7. Pieni galluppi

      Mitäs lahjaa odotat joulupukilta.
      Ikävä
      56
      1901

    8. Oletko uhriutuja?

      vaikka itse olet rääkännyt toista ja aiheuttanut ties mitä toiselle.
      Tunteet
      58
      1706

    9. KL: Mari Hynynen avoimena - Jouni-rakkaan ja Joel-pojan välit ovat nämä!

      Mari Hynynen (ent. Perankoski) on naimisissa Jouni Hynysen kanssa. Marilla on edellisestä liitosta yksi lapsi, Joel Vola
      Suomalaiset julkkikset
      11
      1603

    10. Kenet molemmat

      Sä haluat mies?
      Ikävä
      17
      1515
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt