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

---

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.

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.

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.

---

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.

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:

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:

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:

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:

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.

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

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.