MS Excel

Téma: Sloučení dat a smazání všech stejných dat

Zaslal/a ddavidd 27.2.2015 23:00

Dobrý den ,
potřeboval bych pomoc. Ve sloupci A mám emailové adresy a ve sloupci B mám adresy , které potřebuji smazat ze sloupce A .
Předem moc děkuji za pomoc

Zaslat odpověď >

kp57(27.2.2015 23:32)#023918

např:Sub Vymaz()
Dim rdR As Long, rdW As Long
Application.EnableEvents = False
Application.Calculation = xlManual
For rdR = 1 To Cells(Cells.Rows.Count, 2).End(xlUp).Row
For rdW = Cells(Cells.Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(rdR, 2) = Cells(rdW, 1) Then Cells(rdW, 1).Delete Shift:=xlUp
Next rdW
Next rdR
Application.EnableEvents = True
Application.Calculation = xlAutomatic
End Sub
citovat

ddavidd(27.2.2015 23:38)#023919

Super , moc a moc děkujicitovat

ddavidd(28.2.2015 10:09)#023920

Dobrý den ,
měl bych ještě dotaz , funguje to ale mám problém jelihož těch dat je moc ( cca 150 000 řádků ) a když to spustím tak se mi vše sekne . Jde stím něco dělat ?

citovat

kp57(28.2.2015 13:14)#023923

Přidej na začátku "Application.ScreenUpdating = False"
a na konci "Application.ScreenUpdating = True".citovat

ddavidd(28.2.2015 13:38)#023925

Je to správně :

Sub Vymaz()
Dim rdR As Long, rdW As Long
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlManual
For rdR = 1 To Cells(Cells.Rows.Count, 2).End(xlUp).Row
For rdW = Cells(Cells.Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(rdR, 2) = Cells(rdW, 1) Then Cells(rdW, 1).Delete Shift:=xlUp
Next rdW
Next rdR
Application.EnableEvents = True
Application.Calculation = xlAutomatic
Application.ScreenUpdating = True
End Subcitovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.