• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

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

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 ?

Super , moc a moc děkuji

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

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse