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

• #12950 Delila_1 veterán erich85T #12949

  Új Válasz 2012-02-21 15:37:49 #12950

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

  Sub beszur()
  Dim sor%, usor%
  usor% = ActiveSheet.UsedRange.Rows.Count
  For sor% = usor% To 2 Step -1
  If Cells(sor, 2) <> Cells(sor% - 1, 2) Then _
  Rows(sor%).EntireRow.Insert
  Next
  End Sub

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