엑셀 vba 선택영역_JPG_없애기

Sub 선택영역_JPG_없애기()

  Application.Calculation = xlCalculationManual

  Application.ScreenUpdating = False

  

  For Each s In Selection

    str1 = s

    If Right(StrConv(str1, vbLowerCase), 3) = "jpg" Then

      s.value = Mid(str1, 1, Len(str1) - 4)

    End If

  Next

  Application.Calculation = xlCalculationAutomatic

  Application.ScreenUpdating = True

  

End Sub

.