Sut i ddod o hyd i'r holl destunau sydd wedi'u tanlinellu mewn ystod neu daflen waith gyfan yn Excel?

Gan dybio bod gennych chi ystod o ddata mewn taflen waith, a bod rhywfaint o'r data gyda thanlinellu, a nawr eich bod chi eisiau darganfod y data hyn gyda thanlinellu, sut allwch chi eu darganfod yn gyflym? Yma, rwy'n cyflwyno rhai triciau i chi ddarganfod yn gyflym y testunau sydd wedi'u tanlinellu mewn ystod neu daflen waith gyfan yn Excel.

Dewch o hyd i'r holl destunau sydd wedi'u tanlinellu mewn taflen waith gyda VBA

Dewch o hyd i'r holl destunau sydd wedi'u tanlinellu mewn ystod neu daflen waith gyda Kutools ar gyfer Excel

---

Dewch o hyd i'r holl destunau sydd wedi'u tanlinellu mewn taflen waith gyda VBA

Yn Excel, ni allwch ddefnyddio swyddogaeth Go To Special i ddarganfod y testunau sydd wedi'u tanlinellu, felly rwy'n cyflwyno cod VBA i'ch helpu chi i ddod o hyd i'r holl destunau sydd wedi'u tanlinellu mewn taflen waith.

1. Gwasgwch Alt + F11 allweddi i agor Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, a chlicio Mewnosod > Modiwlau.

2. Yn y popping Modiwlau ffenestr, pastiwch o dan god VBA.

VBA: Dewch o hyd i'r holl destun wedi'i danlinellu mewn taflen waith.

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. Cliciwch Run botwm neu wasg F5 allwedd. Ac mae deialog yn dewis dewis ystod i ddod o hyd i destunau wedi'u tanlinellu.

4. Cliciwch OK, yna bydd deialog yn galw allan i ddweud wrthych pa gelloedd sy'n destunau sengl wedi'u tanlinellu, a pha rai sy'n destunau â thanlinelliad dwbl.

Os ydych chi eisiau darganfod un math o destunau wedi'u tanlinellu mewn ystod benodol yn unig, ni all y cod VBA hwn eich helpu chi, ond gallwch chi ddefnyddio isod offeryn defnyddiol i ddatrys y dasg hon yn yr achos hwn.

---

Dewch o hyd i'r holl destunau sydd wedi'u tanlinellu mewn ystod neu daflen waith gyda Kutools ar gyfer Excel

Os oes gennych Kutools ar gyfer Excel wedi'i osod, gallwch gymhwyso'r Dewiswch Gelloedd gyda Fformat cyfleustodau i ddarganfod y testunau sydd wedi'u tanlinellu yn gyflym mewn ystod o daflen waith gyfan.

Ar ôl gosod am ddim Kutools ar gyfer Excel, gwnewch fel y nodir isod:

1. Dewiswch gell wag, ac yna teipiwch ddata i mewn iddi, er enghraifft, A1, a chlicio Hafan > Tanlinellwch, a dewis math o danlinell sydd ei angen arnoch chi. Gweler y screenshot:

2. Yna dewiswch yr ystod rydych chi am ddarganfod y testunau penodol sydd wedi'u tanlinellu, a chlicio Kutools > dewiswch > Dewiswch Gelloedd gyda Fformat. Gweler y screenshot:

3. Ac yn y Dewiswch Gelloedd gyda Fformat deialog, cliciwch Dewiswch Fformat O Gell i ddewis y gell rydych chi'n ei fformatio gyda thanlinellu yng ngham 1. Gweler y screenshot:

4. Cliciwch OK, ac yn y Dewiswch Gelloedd gyda Fformat deialog, gwirio Tanlinellwch yn unig. Gweler y screenshot:

5. Cliciwch Ok, yna mae deialog yn galw allan i'ch atgoffa faint o destunau sydd wedi'u tanlinellu sy'n cael eu dewis, cliciwch Oes i'w gau.

Nawr mae'r holl destunau wedi'u tanlinellu yn cael eu dewis.

Awgrym:

1. Os ydych chi am ddarganfod yr holl destunau sydd wedi'u tanlinellu mewn taflen waith gyfan, cliciwch cornel chwith y daflen waith i ddewis taflen waith gyfan, ac yna cymhwyswch y Dewiswch Gelloedd gyda Fformat cyfleustodau.

2. Gwiriwch Anwybyddwch y celloedd gwag in Dewiswch Gelloedd gyda Fformat deialog, bydd yn anwybyddu'r celloedd gwag er bod y celloedd gwag wedi'u fformatio â thanlinellu.