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

• #12724 Delila_1 veterán shiz #12723

  Új Válasz 2012-01-30 12:43:46 #12724

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

  A Munka2 lapra viszi át az adatokat. Feltételezem, hogy a másolandó lapon a címsor alatt, a 2. sorban kezdődnek az adatok.

  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) & " 1"
  WS2.Cells(sor1% + 1, 1) = Cells(sor%, 1) & " 2"
  WS2.Cells(sor1% + 2, 1) = Cells(sor%, 1) & " 3"
  WS2.Cells(sor1%, 2) = Cells(sor%, 2)
  WS2.Cells(sor1% + 1, 2) = Cells(sor%, 3)
  WS2.Cells(sor1% + 2, 2) = Cells(sor%, 4)
  sor1% = sor1% + 3
  Next
  End Sub

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