Excel - vybrat buňky s hypertextovým odkazem
Napsal: 05 pro 2021 21:27
od pikaso.andreas
Ahoj, mám excel soubor, kde mám jeden sloupec a mnoho řádků, ale potřebuji vybrat či vyfiltrovat jen buňky které jsou HTTP, jako odkazy na web. Ostatní buňky kde je jen text potřebuji odstranit. Procházím návody ale asi nevím jak se zeptat strýčka googla.
Děkuji
Ondra
Re: Excel - vybrat buňky s hypertextovým odkazem Vyřešeno
Napsal: 06 pro 2021 17:57
od elninoslov
Asi jedine makrom:
Kód: Vybrat vše
Sub Cudlicek()
Dim Oblast As Range, Bunka As Range, Zmaz As Range, Riadkov As Long
With ThisWorkbook.Worksheets("Hárok1")
Riadkov = .Cells(Rows.Count, "A").End(xlUp).Row - 1
Set Oblast = .Cells(2, "A").Resize(Riadkov)
For Each Bunka In Oblast.Cells
If Bunka.Hyperlinks.Count = 0 Then
If Zmaz Is Nothing Then Set Zmaz = Bunka Else Set Zmaz = Union(Zmaz, Bunka)
End If
Next Bunka
End With
If Not Zmaz Is Nothing Then Zmaz.Delete Shift:=xlUp
End Sub
Re: Excel - vybrat buňky s hypertextovým odkazem
Napsal: 07 pro 2021 11:59
od pikaso.andreas
Děkuji moc. Na první dobrou super. Skvělé. Klaním se.