Jak znaleźć wszystkie podkreślone teksty w zakresie lub całym arkuszu kalkulacyjnym w programie Excel?
Przypuśćmy, że masz zakres danych w arkuszu, a niektóre dane są podkreślone, a teraz chcesz znaleźć te dane z podkreśleniem, jak możesz szybko je znaleźć? Tutaj przedstawiam kilka sztuczek, aby szybko znaleźć podkreślone teksty w zakresie lub całym arkuszu kalkulacyjnym w programie Excel.
Znajdź wszystkie podkreślone teksty w arkuszu z VBA
Znajdź wszystkie podkreślone teksty w zakresie lub arkuszu kalkulacyjnym za pomocą Kutools for Excel
Znajdź wszystkie podkreślone teksty w arkuszu z VBA
W programie Excel nie można użyć funkcji Go To Special, aby znaleźć podkreślone teksty, dlatego wprowadzam kod VBA, aby pomóc Ci znaleźć wszystkie podkreślone teksty w arkuszu.
1. naciśnij Alt + F11 klucze do otwarcia Microsoft Visual Basic for Applications okno i kliknij wstawka > Moduł.
2. W poppingu Moduł okno, wklej poniżej kod VBA.
VBA: znajdź cały podkreślony tekst w arkuszu.
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 Sub
3. kliknij run lub naciśnij F5 klucz. Pojawi się okno dialogowe, w którym można wybrać zakres, aby znaleźć podkreślone teksty.
4. kliknij OK, pojawi się okno dialogowe z informacją, które komórki są pojedynczymi podkreślonymi tekstami, a które podwójnie podkreślonymi tekstami.
Jeśli chcesz tylko znaleźć jeden typ podkreślonych tekstów w określonym zakresie, ten kod VBA nie może ci pomóc, ale możesz użyć poniżej przydatnego narzędzia, aby rozwiązać to zadanie w tym przypadku.
Znajdź wszystkie podkreślone teksty w zakresie lub arkuszu kalkulacyjnym za pomocą Kutools for Excel
Jeśli Kutools dla programu Excel zainstalowany, możesz zastosować Wybierz komórki z formatem narzędzie do szybkiego wyszukiwania podkreślonych tekstów w zakresie całego arkusza.
Kutools dla programu Excel, ponad 300 przydatne funkcje, ułatwiają pracę. |
Po bezpłatna instalacja Kutools dla programu Excel, wykonaj poniższe czynności:
1. Wybierz pustą komórkę, a następnie wpisz do niej dane, na przykład A1, i kliknij Strona główna > podkreślaći wybierz rodzaj podkreślenia, którego potrzebujesz. Zobacz zrzut ekranu:
2. Następnie wybierz zakres, w którym chcesz znaleźć określone podkreślone teksty, i kliknij Kutools > Wybierz > Wybierz komórki z formatem. Zobacz zrzut ekranu:
3. A w Wybierz komórki z formatem dialog, kliknij Wybierz Format z komórki aby zaznaczyć komórkę, którą formatujesz z podkreśleniem w kroku 1. Zobacz zrzut ekranu:
4. kliknij OK, oraz w Wybierz komórki z formatem okno dialogowe, sprawdź podkreślać tylko. Zobacz zrzut ekranu:
5. kliknij Ok, następnie pojawi się okno dialogowe przypominające o liczbie zaznaczonych podkreślonych tekstów, kliknij Tak zamknąć to.
Teraz wszystkie podkreślone teksty są zaznaczone.
Porady:
1. Jeśli chcesz znaleźć wszystkie podkreślone teksty w całym arkuszu, kliknij lewy róg arkusza, aby zaznaczyć cały arkusz, a następnie zastosuj Wybierz komórki z formatem użyteczność.
2. Czek Zignoruj puste komórki in Wybierz komórki z formatem okno dialogowe zignoruje puste komórki, mimo że są one sformatowane z podkreśleniem.
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!