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
VBA ja matriisin kääntäminen
Tsitsu
1
649
Vastaukset 1
- 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
Suomalaisten pinna paloi - Ärsytys iskee uudesta TTK-juontajasta "Eihän tälle voi kun nauraa"
Oliko Veronica Verho hyvä valinta TTK-juontajaksi? Uuden TTK-juontajan henkilöllisyyttä on arvailtu siitä asti, kun Va1092250- 103896
- 69871
Mitä tapahtuu?
Mitä tapahtuu Humalojalla? Poliiseja talon ympärillä ja paljon ihmisiä pitkin pihoja???22852- 48835
Suomi on viittä vaille sodassa Venäjän kanssa...
...syynä tähän on kokoomuslainen presidenttimme Stubb. Hän on ainoa eurooppalaisen maan johtaja, joka kärkkäästi ja taha541770- 80687
Olen vähän epävarma siitä, oletko kiltti
Nainen, ensivaikutelma oli, että olet tosi hyväsydäminen eli siinä mielessä harvinaisuus. Eli et mene virran mukana, etk76650Herkkä, hellä, aurinkoinen, kaunis upea, valonsäde on hän nainen
Ja myös fiksu, älykäs ja luonnonläheinen. Erittäin mielenkiintoinen ja kiltti ihminen. Haluan tuntea hänet, koska kaik23600- 57561