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

• #12728 Delila_1 veterán shiz #12727

  Új Válasz 2012-01-30 13:16:55 #12728

  Ú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

  

  Delila_1

  veterán

  válasz shiz #12727 üzenetére

  Sub átrendez()
  Dim sor%, usor%, sor1%, WS2 As Worksheet
  
  Set WS2 = Sheets("Munka2")
  usor% = Range("A1").End(xlDown).Row
  sor1% = 2
  
  For sor% = 2 To usor%
  WS2.Cells(sor1%, 1) = Cells(sor%, 1)
  WS2.Cells(sor1% + 1, 1) = Cells(sor%, 1)
  WS2.Cells(sor1% + 2, 1) = Cells(sor%, 1)
  WS2.Cells(sor1%, 2) = Cells(sor%, 2)
  WS2.Cells(sor1% + 1, 2) = Cells(sor%, 3)
  WS2.Cells(sor1% + 2, 2) = Cells(sor%, 4)
  WS2.Cells(sor1%, 3) = 1
  WS2.Cells(sor1% + 1, 3) = 2
  WS2.Cells(sor1% + 2, 3) = 3
  
  sor1% = sor1% + 3
  Next
  End Sub

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