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

• #13697 Delila_1 veterán Oly #13696

  Új Válasz 2012-05-12 16:30:16 #13697

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

  Sub alma()
  Dim sor%, usor%, oszlop%, potsor
  
  usor = Range("A1").End(xlDown).Row: potsor = usor% + 1
  
  For sor% = 1 To usor%
  oszlop% = Cells(sor%, 200).End(xlToLeft).Column
  Do While oszlop > 2
  If oszlop% > 2 Then
  Cells(potsor, 1) = Cells(sor%, 1)
  Cells(potsor, 2) = Cells(sor%, oszlop)
  Cells(sor%, oszlop%) = ""
  potsor = potsor + 1: oszlop% = oszlop% - 1
  End If
  Loop
  Next
  End Sub

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