Příspěvky uživatele


< návrat zpět

Sloučení dat a smazání všech stejných dat (28.2.2015 13:38)

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 Sub

Sloučení dat a smazání všech stejných dat (28.2.2015 10:09)

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 ? 7

Sloučení dat a smazání všech stejných dat (27.2.2015 23:38)

Super , moc a moc děkuji

Sloučení dat a smazání všech stejných dat (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 7


Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje