Jak najít všechny podtržené texty v rozsahu nebo v celém listu v aplikaci Excel?
Předpokládejme, že máte v listu řadu dat a některá data jsou podtržena, a teď je chcete zjistit podtrženě, jak je rychle zjistit? Zde vám představím několik triků, jak rychle zjistit podtržené texty v rozsahu nebo v celém listu v aplikaci Excel.
Najděte všechny podtržené texty v listu pomocí VBA
Najděte všechny podtržené texty v rozsahu nebo listu pomocí Kutools pro Excel 
Najděte všechny podtržené texty v listu pomocí VBA
V aplikaci Excel nemůžete použít funkci Přejít na speciální k vyhledání podtržených textů, proto vám představím kód VBA, který vám pomůže najít všechny podtržené texty v listu.
1. lis Alt + F11 klíče k otevření Microsoft Visual Basic pro aplikace okno a klikněte na Vložit > Modul.
2. V praskání Modul okno, vložte pod kód VBA.
VBA: Najděte veškerý podtržený text v listu.
Sub SearchForUnderline()
'Updateby20150910
Dim Rg As Range, Rg1 As Range
Dim I As Long
Dim xAddress As String, xAddress1 As String, xAddress2 As String
Dim Result As String
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set Rg = Application.InputBox("Please select a range:", "Kutools for Excel", xAddress, , , , , 8)
If Rg Is Nothing Then Exit Sub
Set Rg = Application.Intersect(Rg, Application.ActiveSheet.UsedRange)
If Rg Is Nothing Then Exit Sub
Set Rg = Rg.SpecialCells(xlCellTypeConstants)
If Rg Is Nothing Then Exit Sub
For Each Rg1 In Rg
For I = 1 To Len(Rg1)
If Rg1.Characters(I, 1).Font.Underline = xlUnderlineStyleSingle Then
If xAddress1 = "" Then
xAddress1 = Rg1.Address
Else
xAddress1 = xAddress1 & ", " & Rg1.Address
End If
Exit For
End If
Next
For I = 1 To Len(Rg1)
If Rg1.Characters(I, 1).Font.Underline = xlUnderlineStyleDouble Then
If xAddress2 = "" Then
xAddress2 = Rg1.Address
Else
xAddress2 = xAddress2 & ", " & Rg1.Address
End If
Exit For
End If
Next
Next
If xAddress1 <> "" Then Result = "Single underline address:" & vbCr & xAddress1 & vbCr & vbCr
If xAddress2 <> "" Then Result = Result & "Double underline address:" & vbCr & xAddress2
If Result <> "" Then MsgBox Result
End Sub3. cvaknutí Běh nebo stiskněte tlačítko F5 klíč. Zobrazí se dialogové okno pro výběr rozsahu pro vyhledání podtržených textů.
4. cvaknutí OK, poté se zobrazí dialogové okno, které vám řekne, které buňky jsou jednoduché podtržené texty a které jsou podtržené texty.
Pokud chcete zjistit pouze jeden typ podtržených textů v konkrétním rozsahu, tento kód VBA vám nemůže pomoci, ale v tomto případě můžete tento úkol vyřešit pomocí níže uvedeného užitečného nástroje.
Najděte všechny podtržené texty v rozsahu nebo listu pomocí Kutools pro Excel
Pokud máte Kutools pro Excel nainstalován, můžete použít Vyberte buňky s formátem nástroj pro rychlé vyhledání podtržených textů v rozsahu celého listu.
| Kutools pro Excel, s více než 300 užitečné funkce, které vám usnadní práci. |
Po instalace zdarma Kutools pro Excel, prosím, postupujte takto:
1. Vyberte prázdnou buňku a poté do ní zadejte data, například A1, a klepněte na Domů > Zdůraznita vyberte požadovaný typ podtržení. Viz screenshot:
2. Poté vyberte rozsah, ve kterém chcete zjistit konkrétní podtržené texty, a klikněte na Kutools > vybrat > Vyberte buňky s formátem. Viz snímek obrazovky:
3. A v Vyberte buňky s formátem dialog, klepněte na tlačítko Vyberte Formát z buňky v kroku 1 vyberte buňku, kterou formátujete s podtržením. Viz screenshot:
4. cvaknutí OK, a v Vyberte buňky s formátem dialog, zkontrolujte Zdůraznit pouze. Viz snímek obrazovky:
5. cvaknutí Ok, poté se zobrazí dialogové okno, které vám připomene, kolik podtržených textů je vybráno, klikněte na Ano zavřít.
Nyní jsou vybrány všechny podtržené texty.
Tip:
1. Chcete-li zjistit všechny podtržené texty v celém listu, kliknutím na levý roh listu vyberte celý list a poté použijte Vyberte buňky s formátem utilita.
2. Kontrola Prázdné buňky ignorujte in Vyberte buňky s formátem Dialogové okno bude ignorovat prázdné buňky, přestože jsou prázdné buňky formátovány s podtržením.
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
