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

• #30489 T_bee aktív tag beers #30483

  Új Válasz 2016-02-09 19:51:41 #30489

  Ú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 beers #30483 üzenetére

  Szia,

  Lehetne valahogy index függvénnyel csinálni, de inkább egy gyors makrót írtam rá, szerintem egyszerűbb

  Sub tordel()
  
  Dim arRes, arInp As Variant
  Dim x, y As Byte
  Dim i As Integer
  Dim sor, oszlop As Byte
  
  sor = 40
  oszlop = 30
  
  arInp = Selection
  
  ReDim arRes(1 To sor, 1 To oszlop)
  
  For x = 1 To oszlop
  For y = 1 To sor
  i = i + 1
  arRes(y, x) = arInp(i, 1)
  Next y
  Next x
  
  Sheets("Output").Activate
  Range(Cells(1, 1), Cells(sor, oszlop)) = arRes
  
  End Sub

  Hozz létre egy 'output' nevű oldalt, vagy írd át a kódban a lap nevét, majd jelöld ki az adataidat és futtasd a makrót. A sor illetve oszlop változó értékének változtatásával tudod variálni, hogy az output hány sorból, illetve oszlopból álljon (meg lehetne csinálni hogy csak az egyiket kérje, és aztán a kijelölés nagysága alapján a másikat 'kitalálja', de nem inkább maradtam a 'quick and dirty' megoldásnál )

  T_bee

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