Note: The other languages of the website are Google-translated. Back to English

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 dobry pomysł 3


strzałka niebieski prawy bąbelek 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.

doc znajdź podkreślony tekst 1

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.

doc znajdź podkreślony tekst 2

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.


strzałka niebieski prawy bąbelek Znajdź wszystkie podkreślone teksty w zakresie lub arkuszu kalkulacyjnym za pomocą Kutools for Excel

Jeśli masz 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.

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:

doc znajdź podkreślony tekst 3

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:

doc znajdź podkreślony tekst 4

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:

doc znajdź podkreślony tekst 5
doc znajdź podkreślony tekst 6

4. kliknij OK, oraz w Wybierz komórki z formatem okno dialogowe, sprawdź podkreślać tylko. Zobacz zrzut ekranu:

doc znajdź podkreślony tekst 7

5. kliknij Ok, następnie pojawi się okno dialogowe przypominające o liczbie zaznaczonych podkreślonych tekstów, kliknij Tak zamknąć to.

doc znajdź podkreślony tekst 8

Teraz wszystkie podkreślone teksty są zaznaczone.

doc znajdź podkreślony tekst 9

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

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

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!
officetab dół
Sortuj komentarze według
Komentarze (0)
Brak ocen. Oceń jako pierwszy!
Nie ma tu jeszcze żadnych komentarzy
Prosimy o pozostawienie komentarzy w języku angielskim
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL