Excel에서 범위 또는 전체 워크시트에서 밑줄이 쳐진 모든 텍스트를 찾는 방법은 무엇입니까?

워크시트에 데이터 범위가 있고, 일부 데이터에는 밑줄이 쳐져 있으며, 이제 밑줄이 있는 데이터를 찾아야 한다고 가정해 봅시다. 어떻게 하면 이를 빠르게 찾을 수 있을까요? 여기에서는 Excel의 범위 또는 전체 워크시트에서 밑줄이 쳐진 텍스트를 빠르게 찾기 위한 몇 가지 팁을 소개합니다.

VBA를 사용하여 워크시트에서 모든 밑줄이 쳐진 텍스트 찾기

Kutools for Excel을 사용하여 범위 또는 워크시트에서 모든 밑줄이 쳐진 텍스트 찾기

VBA를 사용하여 워크시트에서 모든 밑줄이 쳐진 텍스트 찾기

Excel에서는 '이동' 기능을 사용하여 밑줄이 쳐진 텍스트를 찾을 수 없으므로, 여기에서는 VBA 코드를 소개하여 워크시트에서 모든 밑줄이 쳐진 텍스트를 찾도록 도와드리겠습니다.

1. Alt + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 열고, 삽입 > 모듈을 클릭하세요.

2. 나타나는 모듈 창에 아래 VBA 코드를 붙여넣습니다.

VBA: 워크시트에서 모든 밑줄이 쳐진 텍스트 찾기.

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. 실행 버튼을 클릭하거나 F5 키를 누릅니다. 그러면 밑줄이 쳐진 텍스트를 찾을 범위를 선택하는 대화 상자가 나타납니다.

4. 확인을 클릭하면, 어떤 셀에 단일 밑줄이 있는지, 어떤 셀에 이중 밑줄이 있는지를 알려주는 대화 상자가 나타납니다.

특정 범위에서 한 가지 유형의 밑줄이 쳐진 텍스트만 찾고자 하는 경우, 이 VBA 코드는 도움이 되지 않지만, 아래의 유용한 도구를 사용하여 이 작업을 해결할 수 있습니다.

Kutools for Excel을 사용하여 범위 또는 워크시트에서 모든 밑줄이 쳐진 텍스트 찾기

Kutools for Excel이 설치되어 있다면, 서식으로 셀 선택 기능을 사용하여 범위 또는 전체 워크시트에서 밑줄이 쳐진 텍스트를 빠르게 찾을 수 있습니다.

Kutools for Excel을 무료로 설치 한 후, 아래 단계를 수행하십시오:

1. 빈 셀을 선택하고, 예를 들어 A1에 데이터를 입력한 다음, 홈 > 밑줄을 클릭하고 필요한 밑줄 유형을 선택합니다. 스크린샷 보기:

2. 그런 다음 특정 밑줄이 쳐진 텍스트를 찾고자 하는 범위를 선택하고 Kutools > 선택 > 유사한 형식을 가진 셀 선택을 클릭합니다. 스크린샷 보기:

3. 유사한 형식을 가진 셀 선택 대화 상자에서 셀에서 형식 선택을 클릭하여 1단계에서 밑줄 형식을 지정한 셀을 선택합니다. 스크린샷 보기:

4. 확인을 클릭하고, 유사한 형식을 가진 셀 선택 대화 상자에서 밑줄만 체크합니다. 스크린샷 보기:

5. 확인을 클릭하면, 선택된 밑줄이 쳐진 텍스트의 개수를 알려주는 대화 상자가 나타납니다. 예를 클릭하여 닫습니다.

이제 모든 밑줄이 쳐진 텍스트가 선택되었습니다.

팁:

1. 전체 워크시트에서 모든 밑줄이 쳐진 텍스트를 찾으려면, 워크시트의 왼쪽 구석을 클릭하여 전체 워크시트를 선택한 다음, 유사한 형식을 가진 셀 선택 기능을 적용합니다.

2. 유사한 형식을 가진 셀 선택 대화 상자에서 빈 셀 무시를 체크하면, 비록 빈 셀에 밑줄 형식이 지정되어 있더라도 빈 셀은 무시됩니다.