karta domů -> seřadit a filtrovat -> zvolit filtr textu -> obsahuje - a sem zadáte Q a tím se zobrazí požadované buňkycitovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: promazání databáze
Uzamčeno - nelze přidávat nové příspěvky.
MS Excel
Téma: promazání databáze 
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
Uzamčeno - nelze přidávat nové příspěvky.(9.7.2013 16:34)#014294
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
Lahwac to napsal dobře, pak stačí jen vymazat, ale, co je to "odstranit". Úplně odstranit řádky nebo třeba jen skrýt?citovat
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
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
Já jsem to zpracoval takto. Lze zadat číslo sloupce i hledané písmeno.
Příloha: 
14297_sesit1.zip (15kB, staženo 28x)
citovat14297_sesit1.zip (15kB, staženo 28x)@ji026441
Číslo sloupce sice lze zadat, ale stejně hledáš ve sloupci "A"citovat
Číslo sloupce sice lze zadat, ale stejně hledáš ve sloupci "A"citovat
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: 14299_sesit1.zip (16kB, staženo 27x)
citovat14299_sesit1.zip (16kB, staženo 27x)Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
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.
RSS nejnovější články