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

609

    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. Ukraina, unohtui korona - Grönlanti, unohtu Ukraina

      Vinot silmät, unohtui Suomen valtiontalouden turmeleminen.
      Maailman menoa
      6
      2449
    2. Kumpi on sekaisempi - Koskenniemi vai Trump?

      Koskenniemi haukkui Trumppia A-studiossa, niin että räkä lensi suusta. Sen sijaan Trump puheessaan sanoi, että Grönlant
      Maailman menoa
      65
      2268
    3. Miten kauan sulla menisi

      Jos tulisit mun luo tänne nyt kahvinkeittoon?
      Ikävä
      200
      1286
    4. Miksi me oikein

      Rakastuttiin?
      Ikävä
      71
      1088
    5. Kaivattusi silmin

      Minkälaisen kuvan olet omasta mielestäsi antanut itsestäsi kaivatullesi?
      Ikävä
      109
      1084
    6. "Pähkähullu ruhtinas" sanoi a-studiossa maailmanpolitiikan professori...

      ...Martti Koskenniemi Trumpista ja hänen toimintatavoistaan, vertasi 1600-luvulla eläneeseen Aurinkokuninkaaseen Ludwig
      Maailman menoa
      220
      932
    7. Martina ja Matias

      Mahtaako Martina yrittää saada Matiasta uudeksi sulhaseksi, niin saisi ne prinsessa häät, mitkä jäi pitämättä, kun Aussi
      Kotimaiset julkkisjuorut
      211
      909
    8. Toivottavasti myös pysyy häkissä

      https://www.is.fi/kotimaa/art-2000011754428.html 😡😡😡 tommosia saastoja sitä näyttää Suomussalmen suunnalta sikiävän �
      Suomussalmi
      10
      827
    9. Millaisia tunteita

      Sinulla on minua kohtaan?
      Ikävä
      47
      779
    10. Ylipainoiset naiset ovat kokeneet kiusallisen ilmiön deittaillessa

      Moni pluskoon nainen kertoo kohtaavansa deittailussa yllättävän ja kiusallisen ilmiön: alussa on luvassa romanssi, mutta
      Suhteen aloittaminen
      51
      759
    Aihe