< návrat zpět

MS Excel


Téma: promazání databáze rss

Zaslal/a 9.7.2013 16:22

Dobrý den, potřebovala bych pomoc s nějakou funkcí, která by mi promazala ze sloupce, kde mám v každé buňce jedno slovo a potřebuji promazat slova, která obsahují písmeno "q". Je to nějak možné? Děkuji za pomoc

stop Uzamčeno - nelze přidávat nové příspěvky.

#014293
avatar
karta domů -> seřadit a filtrovat -> zvolit filtr textu -> obsahuje - a sem zadáte Q a tím se zobrazí požadované buňkycitovat
#014294
avatar
no to jsem myslela trochu jinak. ten sloupec má 20 tisíc řádku a z toho třeba 1000 řádků obsahuje slovo s q a já potřebuji nějak automaticky ty řádky odstranit a ne je najít. myslíte si, že je to nějak možné? děkujicitovat
#014295
Opičák
Lahwac to napsal dobře, pak stačí jen vymazat, ale, co je to "odstranit". Úplně odstranit řádky nebo třeba jen skrýt?citovat
#014296
Opičák
Uplné odstranění řádků:
Sub vyhodQ()
Rem --- pro sloupec A --- jinak upravit ---
Dim MaxLin As Long
Application.ScreenUpdating = False
MaxLin = Cells(Rows.Count, "A").End(xlUp).Row
For lin = MaxLin To 1 Step -1
For pismeno = 1 To Len(Cells(lin, "A"))
If Mid(Cells(lin, "A"), pismeno, 1) = "q" Or pismeno = "Q" Then
Rows(lin & ":" & lin).Select
Selection.Delete Shift:=xlUp
End If
Next
Next lin
Application.ScreenUpdating = True
End Sub


edit:
mezi End If a Next (4-5 řádek odspodu) by mohl být ještě řádek EXIT FORcitovat
#014297
avatar
Já jsem to zpracoval takto. Lze zadat číslo sloupce i hledané písmeno.
Příloha: zip14297_sesit1.zip (15kB, staženo 23x)
citovat
#014298
Opičák
@ji026441
Číslo sloupce sice lze zadat, ale stejně hledáš ve sloupci "A"citovat
#014299
avatar
No jo, chybička se vloudila, nejdřív jsem to udělal jen na "A", ale pak jsem si řek, ať je to uživatelsky nastavitelné a doplnil jsem tam ten inputbox, ale už nezměnil v cyklu... Tady je to už doufám správně.
Příloha: zip14299_sesit1.zip (16kB, staženo 23x)
citovat
#014302
avatar
Dekuji, pomohlocitovat

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse