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
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 segítségével
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 a következőket:
1. Jelöljön ki egy üres cellát, majd írjon bele egy adatot, például A1-t, és kattintson Kezdőlap > 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.
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz 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!