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

480

Ää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. 20e Riskitön veto 20e talletuksella VB:lle

      Pssst! Vinkki viis rotvallinreunalla eläjille. VB tarjoaa 20 euron riskittömän vedon ensitallettajille vedonlyöntiin.
      Vedonlyönti ja rahapelit
      4
      2437

    2. Pilasit mun

      Elämän. Sitäkö halusit?
      Ikävä
      116
      1607

    3. Viiimeinen viesti

      Sinulle neiti ristiriita vai mikä nimesi sitten ikinä onkaan. Mulle alkaa riittää tää sekoilu. Oot leikkiny mun tunteill
      Suhteet
      36
      1346

    4. Analyysiä: Kiuru-keissi oli ja meni - demarit hävisi tässäkin

      Tapauksen tultua julki alkoi demarit ja muu vasemmisto selittään, että tämä oli poliittista väkivaltaa, siis ennen kuin
      Maailman menoa
      156
      1181

    5. Lasse Peltonen on kunnanjohtaja

      18/21 ääntä 1 Stoor ja 2 Vauhkonen
      Sysmä
      52
      1095

    6. Mikä olisi sinun ja kaivattusi

      Tarinan kertovan elokuvan nimi?
      Ikävä
      113
      1082

    7. Syntymäpäivä

      Milloin on kaipaamasi henkilön syntymäpäivä!? Hänellä miehellä on tammikuussa.
      Ikävä
      57
      1041

    8. Suomessa on valittava 2 lucia neitoa...

      Maahanmuuttajille oma lucia neito ja Suomalaisille oma SUOMALAINEN Lucia neito....sama juttu on tehtävä miss Suomi kisoi
      Maailman menoa
      105
      1034

    9. Olet tärkeä

      mutta tunnen jotain enemmän ja syvempää. Jos voisinkin kertoa sinulle... Olen lähinnä epätoivoinen ja surullinen.
      Ikävä
      46
      909

    10. Vaikutat mukavalta ja

      hyväsydämiseltä ihmiseltä. Oltais oltu hyvät kaverit. ❤️
      Ikävä
      60
      882
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt