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

• #28625 Delila_1 veterán boomkat88 #28624

  Új Válasz 2015-09-16 07:04:54 #28625

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

  Sub Dupla()
  Dim sor As Long, usor As Long
  
  Application.ScreenUpdating = False
  usor = Range("A1").End(xlDown).Row
  usor = usor * 2
  For sor = 2 To usor Step 2
  Cells(sor, "A").Select
  Selection.EntireRow.Insert
  Cells(sor, "A") = Cells(sor - 1, "A")
  Next
  Application.ScreenUpdating = True
  End Sub

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