Ú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

• #2771 Brutforsz senior tag koob #2770

  Új Válasz 2007-10-24 23:32:28 #2771

  Ú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

  

  Brutforsz

  senior tag

  válasz koob #2770 üzenetére

  Egy nagyon erősen gányolás-jellegű megoldás:

  Tegyük fel, hogy az A2 cellával kezdődik az adattáblád, és már sorba vannak rendezve az adatok!
  A B2-be benyomod, hogy =HA(A2=A1;"";1), majd ezt a képletet lehúzod az adattábla utolsó soráig. Ekkor az azonos értékek közül mindig csak az első mellett lesz a B oszlopban 1-es, a többi cella üres marad.

  Ezután a B oszlopra rázavarsz egy autoszűrőt az 1-est választva feltételként, és meg is van, amit szeretnél.

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