Új hozzászólás Aktív témák

• T_bee aktív tag

  #2460

  #2456 mariann71

  2014-06-17 23:37:59

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  T_bee

  aktív tag

  #2456 mariann71

  Szia,

  Nézd meg ezt a kódot, szerintem azt csinálja, ami neked kell:

  Sub transzponal()
  
  Dim inp, res As Variant
  Dim r As Range
  Dim n As Integer
  
  inp = Range(Cells(1, 1), Cells(22, 1)) 'itt olvassa be a program az induló adatokat
  
  n = Int(UBound(inp) / 5) 'itt nézi meg, hogy hány sor lesz az új tömb
  If UBound(inp) Mod 5 <> 0 Then n = n + 1
  
  ReDim res(1 To n, 1 To 5)
  
  For i = 1 To n
  For j = 1 To 5
  If (i - 1) * 5 + j > UBound(inp) Then Exit For
  res(i, j) = inp((i - 1) * 5 + j, 1)
  Next j
  Next i
  
  Set r = Range(Cells(1, 2), Cells(n, 6)) 'itt lehet megadni hogy hova outputolja az eredményt
  r = res
  
  End Sub

  Üdv

  T_bee

Új hozzászólás Aktív témák