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

Hogyan lehet megtalálni az összes aláhúzott szöveget egy tartományban vagy egy teljes munkalapon az Excelben?

Tegyük fel, hogy van egy adattartomány egy munkalapon, és az adatok egy része aláhúzással szerepel, és most ezeket aláhúzással szeretné megtudni, hogyan lehet ezeket gyorsan megtudni? Itt bemutatok néhány trükköt, amelyek segítségével gyorsan megtudhatja az aláhúzott szövegeket egy tartományban vagy egész munkalapon az Excelben.

Találja meg az összes aláhúzott szöveget a VBA-val ellátott munkalapon

Keresse meg az összes aláhúzott szöveget egy tartományban vagy munkalapon a Kutools for Excel programmal jó ötlet3


nyíl kék jobb buborék Találja meg az összes aláhúzott szöveget a VBA-val ellátott munkalapon

Az Excel programban nem használhatja a Speciális funkciót az aláhúzott szövegek megismerésére, ezért bemutatok egy VBA kódot, amely segít megtalálni az összes aláhúzott szöveget egy munkalapon.

1. nyomja meg Alt + F11 gombokat a megnyitáshoz Microsoft Visual Basic for Applications ablakot, és kattintson rá betétlap > Modulok.

2. A durranásban Modulok ablakba illessze be a VBA kód alá.

VBA: Találja meg az összes aláhúzott szöveget egy munkalapon.

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. kettyenés futás vagy nyomja meg a gombot F5 kulcs. És megjelenik egy párbeszédpanel, ahol kiválaszthat egy tartományt az aláhúzott szövegek megkereséséhez.

doc megtalálja az aláhúzott szöveget 1

4. kettyenés OK, akkor megjelenik egy párbeszédpanel, amely megmondja, mely cellák egyetlen aláhúzott szövegek, és melyek kettős aláhúzott szövegek.

doc megtalálja az aláhúzott szöveget 2

Ha csak az aláhúzott szövegek egyik típusát szeretné megtudni egy adott tartományban, akkor ez a VBA-kód nem tud segíteni, de az alábbi praktikus eszközzel megoldhatja ezt a feladatot ebben az esetben.


nyíl kék jobb buborék Keresse meg az összes aláhúzott szöveget egy tartományban vagy munkalapon a Kutools for Excel programmal

Ha van Kutools az Excel számára telepítve van, alkalmazhatja a Válassza a Cellák formázással lehetőséget segédprogram az aláhúzott szövegek gyors megtalálásához egy egész munkalap tartományában.

Kutools az Excel számára, Több mint 300 a praktikus funkciók megkönnyítik a munkáját. 

Után ingyenes telepítés Kutools for Excel, kérjük, tegye az alábbiak szerint:

1. Jelöljön ki egy üres cellát, majd írjon bele egy adatot, például A1-t, és kattintson FŐOLDAL > aláhúzás, és válassza ki a kívánt aláhúzás típusát. Lásd a képernyőképet:

doc megtalálja az aláhúzott szöveget 3

2. Ezután válassza ki azt a tartományt, amelyről meg szeretné találni a konkrét aláhúzott szövegeket, majd kattintson a gombra Kutools > választ > Válassza a Cellák formázással lehetőséget. Lásd a képernyőképet:

doc megtalálja az aláhúzott szöveget 4

3. És a Válassza a Cellák formázással lehetőséget párbeszédpanelen kattintson a gombra Válassza a Formázás cellából lehetőséget az 1. lépésben aláhúzással formázott cella kiválasztásához. Lásd a képernyőképet:

doc megtalálja az aláhúzott szöveget 5
doc megtalálja az aláhúzott szöveget 6

4. kettyenés OK, és a Válassza a Cellák formázással lehetőséget párbeszédpanelen ellenőrizze aláhúzás csak. Lásd a képernyőképet:

doc megtalálja az aláhúzott szöveget 7

5. kettyenés Ok, majd megjelenik egy párbeszédpanel, amely emlékezteti Önt, hogy hány aláhúzott szöveg van kijelölve, kattintson a gombra Igen bezárni.

doc megtalálja az aláhúzott szöveget 8

Most kijelöli az összes aláhúzott szöveget.

doc megtalálja az aláhúzott szöveget 9

Tipp:

1. Ha egy egész munkalapon meg szeretné találni az összes aláhúzott szöveget, kattintson a munkalap bal sarkára a teljes munkalap kiválasztásához, majd alkalmazza a Válassza a Cellák formázással lehetőséget hasznosság.

2. Jelölje be Hagyja figyelmen kívül az üres cellákat in Válassza a Cellák formázással lehetőséget párbeszédpanelen figyelmen kívül hagyja az üres cellákat, annak ellenére, hogy az üres cellákat aláhúzással formázzák.


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (0)
Még nincs értékelés. Legyen Ön az első, aki értékel!
Még senki sem írt megjegyzést
Kérjük, írja meg észrevételeit angol nyelven
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi