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

• #2460 T_bee aktív tag mariann71 #2456

  Új Válasz 2014-06-17 23:37:59 #2460

  Ú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

  Privát üzenet küldése

  

  T_bee

  aktív tag

  válasz mariann71 #2456 üzenetére

  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