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

• #2775 Delila_1 veterán koob #2770

  Új Válasz 2007-10-25 09:40:39 #2775

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

  Másik megoldás az azonos tartalmú sorok törlésére
  (feltételezve, hogy az adatok A2-ben kezdődnek, és rendezettek)

  Sub azonos_törlése()
  sor = 2
  Do While Cells(sor, 1) <> ""
  törlés = 0
  Cells(sor, 1).Select
  If Cells(sor, 1) = Cells(sor + 1, 1) Then
  Selection.EntireRow.Delete
  törlés = 1
  End If
  If törlés < 1 Then
  sor = sor + 1
  End If
  Loop
  End Sub

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