Ú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

• #2459 martonx veterán mariann71 #2458

  Új Válasz 2014-06-17 12:52:05 #2459

  Ú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

  

  martonx

  veterán

  válasz mariann71 #2458 üzenetére

  Tegyél fel légyszi valahova egy ilyen adatokkal teli excel file-t, aztán szívesen segítek. Érzésre itt egy pasetspecial meg a transpose = true nem lesz elég.

• #2457 martonx veterán mariann71 #2456

  Új Válasz 2014-06-17 09:00:06 #2457

  Ú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

  

  martonx

  veterán

  válasz mariann71 #2456 üzenetére

  For ciklussal?

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