transponeren

[pasayan19]

Hallo luitjes,

ik heb een excelsheet met een totaal van 60000 rijen en 5 kolommen.
Er is maar een kolom belangrijk. Deze kolom dient getransponeerd te worden
( zie voorbeeldsheet )
Hoe kan dat gebeuren! Hij dienst dit te doen tot hij bij het einde van de data komt, soms 55000 rijen soms 61000 rijen.

 

[Hoornvan]

pasayan19,

Heb je al gezocht op transponeren in "Doorzoek dit forum"?
Er staan er wat, misschien dat je oplossing erbij zit.

 

[snb]

sub tst()
  for j=1 to usedrange.rows.count step 25
    cells((j\25)+1,10).resize(,25)=worksheetfunction.transpose(cells(j,4).resize(25))
  next
end sub

 

[pasayan19]

Kan je meer uitleg geven over het stukje VBA!
Heb het gecopieerd maar doet niets