영화자막 하이픈 처리

인도영화 자막은 하이픈 처리가 제대로 안된 것이 많다.

오랫만에 자막 좀 뒤져보다가 인도영화 자막 하이픈 처리한다고 엑셀로 수작업 처리했던 것이 있어서 VBA로 코드를 만들어봤다.

영화자막 하이픈수정처리.xlsm

Sub 자막하이픈수정()
    Dim rngC As Range
    Dim rngAll As Range
    Dim n As Long
   
    Set rngAll = Range([B2], Cells(Rows.Count, "B").End(3))
    Columns("B:C").NumberFormat = "@"     '// 텍스트 서식 지정
    If Cells(Rows.Count, "B").End(3).Row = 1 Then
        MsgBox "수정할 자막이 없습니다"
        Exit Sub
    End If
    rngAll.Offset(0, 1).ClearContents
    For Each rngC In rngAll
        If InStr(rngC, "<br>") Then
            If Not InStr(rngC, "-") And InStr(rngC.Offset(1, 0), "-") Then
                rngC.Offset(0, 1) = "- " & rngC
                rngC.Interior.ColorIndex = 36
                n = n + 1
            Else
                rngC.Offset(0, 1) = rngC
                rngC.Interior.ColorIndex = xlNone
            End If
        Else
            rngC.Offset(0, 1) = rngC
            rngC.Interior.ColorIndex = xlNone
        End If
    Next rngC
   
    Set rngAll = Nothing
    If n = 0 Then
        MsgBox "- 추가 대상이 없습니다"
    Else
        MsgBox n & "개 수정했습니다"
    End If
End Sub

Sub 결과비우기()
    Range([B2], Cells(Rows.Count, "B").End(3)).Offset(0, 1).ClearContents
End Sub