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

648

Ää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. Rakastan sinua

      Anteeksi että epäilin sinua.. ❤️
      Ikävä
      60
      803

    2. Naisten top-5 red flagit

      1. Feminismi: kertoo keskenkasvuisuudesta, välttää vastuuta tekemällä miehistä kestosyyllisen kaikkeen 2. Ylipaino: kiel
      Ikävä
      111
      773

    3. Mitähän meinaat

      Vai meinaatko mitään kohtaamisen suhteen?
      Ikävä
      46
      650

    4. Medvedev: Suomi tuhoutuu ydinsodassa ensimmäisenä

      Venäjän ydinaseilla on lyhyin matka Suomeen, joten ydinsodassa Suomi tuhoutuu heti sodan alkuminuuteilla, muilla mailla
      Maailman menoa
      213
      588

    5. Oletko hyljännyt minut mies?

      Toivottavasti et. 🥺🥺🥺🥺🥺
      Ikävä
      42
      543

    6. Tiedätkö kaivattusi musiikkimaun?

      Minkälaisesta musiikista hän pitää?
      Ikävä
      52
      526

    7. Nykytiedon valossa

      Tekisitkö nykyisellä tietämyksellä jotain toisin ja mitä se olisi?
      Ikävä
      76
      523

    8. Jippii ! Zoon konkurssia tutkitaan .

      Vihdoinkin jotakin tietoa.
      Ähtäri
      22
      506

    9. Onko se loukkaavaa

      Kun joka kerta tuijotan sun peppua. En mahda sille mitään, että se vangitsee katseeni. Pohdin vain että ei minusta ole k
      Ikävä
      82
      483

    10. Onko kaivattusi seinäruusu?

      Kun hän saapuu paikalle, huomaako kukaan, vai kääntyvätkö päät? Onko se hyvä vai huono juttu? Oletko sinä huomattu vai
      Ikävä
      37
      480
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt