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

581

    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ä.

    Luetuimmat keskustelut

    1. Tukalaa kuumuutta

      Tietäisitpä vaan kuinka kuumana olen käynyt viime päivät. Eikä johdu helteestä, vaan sinusta. Mitäköhän taikoja olet teh
      Ikävä
      43
      3007
    2. Ensi kesänä

      Näin kesän viimeisenä minuutteina ajattelen sinua. Olisiko seuraava kesä "meidän" kesä? Tänä vuonna ei onnistuttu, mutta
      Ikävä
      61
      2961
    3. Sinä, ihastukseni

      Mitä haluaisit tehdä kanssani ensimmäisenä?
      Ihastuminen
      42
      2367
    4. Tiedät ettei tule toimimaan.

      Mielenterveys ei kummallakaan kestä.
      Ikävä
      31
      1863
    5. Okei, myönnetään,

      Oisit sä saanut ottaa ne housutkin pois, mutta ehkä joskus jossain toisaalla. 😘
      Ikävä
      25
      1719
    6. Anne Kukkohovin karmeat velat ovat Suomessa.

      Lähtikö se siksi pois Suomesta ? Et on noin kar? mean suuret velat naisella olemassa
      Kotimaiset julkkisjuorut
      72
      1674
    7. Onko kaivatullasi

      himmeä kuuppa?
      Ikävä
      48
      1586
    8. Mihin hävisi

      Mihin hävisi asiallinen keskustelu tositapahtumista, vai pitikö jonkin Hannulle kateellisen näyttää typeryytensä
      Iisalmi
      77
      1275
    9. On jo heinäkuun viimeinen päivä.

      En taida nähdä sinua koskaan.
      Rakkaus ja rakastaminen
      37
      1247
    10. Lähtikö korvat

      puhtaaksi vaikusta?
      Tuusniemi
      79
      1070
    Aihe