Excel에서 셀의 모든 취소선 텍스트 또는 문자를 제거하거나 삭제하려면 어떻게 해야 하나요?

이 문서는 Excel에서 여러 셀에서 모든 취소선 텍스트 또는 문자를 제거하는 방법에 대해 설명합니다.

VBA 코드를 사용하여 셀에서 모든 취소선 텍스트 제거하기

VBA 코드를 사용하여 셀에서 모든 취소선 텍스트 제거하기

아래 VBA 코드는 취소선으로 표시된 셀의 모든 텍스트를 제거하는 데 도움을 줍니다. 아래 단계를 따르세요.

1. 취소선 텍스트가 포함된 워크시트에서 Alt + F11 키를 동시에 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. Microsoft Visual Basic for Applications 창에서 Inset > Module을 클릭하세요. 그런 다음 아래 VBA 코드를 복사하여 코드 창에 붙여넣으세요.

VBA 코드: 셀에서 모든 취소선 텍스트 제거하기

Sub DelStrikethroughText()
    Dim xRg As Range, xCell As Range
    Dim xStr As String
    Dim I As Long
    On Error Resume Next
    Set xRg = Application.InputBox("Please select range：", "KuTools For Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = Fase
        For Each xCell In xRg
            If IsNumeric(xCell.Value) And xCell.Font.Strikethrough Then
                xCell.Value = ""
            ElseIf Not IsNumeric(xCell.Value) Then
                For I = 1 To Len(xCell)
                    With xCell.Characters(I, 1)
                        If Not .Font.Strikethrough Then
                            xStr = xStr & .Text
                        End If
                    End With
                Next
                xCell.Value = xStr
                xStr = ""
            End If
        Next
    Application.ScreenUpdating = True
End Sub

3. F5 키를 누르거나 Run 버튼을 클릭하여 코드를 실행합니다. 나타나는 Kutools for Excel 대화 상자에서 취소선 텍스트가 포함된 범위를 선택하고 OK 버튼을 클릭하세요. 스크린샷 보기:

그러면 아래 스크린샷과 같이 취소선으로 표시된 모든 텍스트가 즉시 셀에서 제거됩니다.

Kutools AI로 엑셀의 마법을 풀다

• 스마트 실행: 셀 작업 수행, 데이터 분석 및 차트 생성 - 간단한 명령어로 모든 것을 처리합니다.
• 사용자 정의 수식: 작업을 간소화하기 위한 맞춤형 수식을 생성합니다.
• VBA 코딩: 손쉽게 VBA 코드를 작성하고 실행합니다.
• 수식 해석: 복잡한 수식도 쉽게 이해할 수 있습니다.
• 텍스트 번역: 스프레드시트 내 언어 장벽을 허물어 보세요.

AI 기반 도구로 엑셀 활용 능력을 강화하세요. 지금 다운로드하여 그 어느 때보다 높은 효율성을 경험해 보세요!

관련 문서:

• Excel에서 특정 문자 앞이나 뒤의 텍스트를 제거하려면 어떻게 해야 하나요?
• Excel에서 불필요한 텍스트를 셀에서 제거하려면 어떻게 해야 하나요?
• Excel에서 텍스트와 숫자가 포함된 셀에서 숫자를 제거하려면 어떻게 해야 하나요?
• Excel에서 숫자와 텍스트가 포함된 셀에서 텍스트만 제거하려면 어떻게 해야 하나요?