�ｿｽZ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽs�ｿｽ�ｿｽ�ｿｽ�除�ｿｽ�ｿｽ�ｿｽ�ｿｽbExcel VBA

�ｿｽc�ｿｽC�ｿｽ[�ｿｽg

�ｿｽmAlt�ｿｽn�ｿｽ{�ｿｽmEnter�ｿｽn�ｿｽL�ｿｽ[�ｿｽﾅセ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽs�ｿｽ�ｿｽ�ｿｽs�ｿｽ�ｿｽ�ｿｽﾆ、�ｿｽ�ｿｽ�ｿｽs�ｿｽR�ｿｽ[�ｿｽhvbLf(�ｿｽ�ｿｽ�ｿｽC�ｿｽ�ｿｽ�ｿｽt�ｿｽB�ｿｽ[�ｿｽ�ｿｽ�ｿｽh�ｿｽFChr(10)�ｿｽj�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾍゑｿｽ�ｿｽ�ｿｽﾜゑｿｽ�ｿｽB
�ｿｽZ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽs�ｿｽ�ｿｽ�ｿｽ鼕��ｿｽ�ｿｽ�ｿｽﾄ削除�ｿｽ�ｿｽ�ｿｽ�ｿｽﾉは、Range�ｿｽI�ｿｽu�ｿｽW�ｿｽF�ｿｽN�ｿｽg�ｿｽ�ｿｽReplace�ｿｽ�ｿｽ�ｿｽ\�ｿｽb�ｿｽh�ｿｽ�利用�ｿｽ�ｿｽ�ｿｽﾜゑｿｽ�ｿｽB

Replace�ｿｽ�ｿｽ�ｿｽ\�ｿｽb�ｿｽh�ｿｽﾍ趣ｿｽ�ｿｽﾌよう�ｿｽﾈ構�ｿｽ�ｿｽ�ｿｽﾅ使�ｿｽp�ｿｽ�ｿｽ�ｿｽﾜゑｿｽ�ｿｽi�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾍほゑｿｽ�ｿｽﾉゑｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾜゑｿｽ�ｿｽj�ｿｽB

Range�ｿｽI�ｿｽu�ｿｽW�ｿｽF�ｿｽN�ｿｽg.Replace(What, Replacement, [LookAt])

�ｿｽ�ｿｽ�ｿｽ�ｿｽWhat�ｿｽﾉは鯉ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽAReplacement�ｿｽﾉは置�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽALookAt�ｿｽﾉは鯉ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ@�ｿｽﾆゑｿｽ�ｿｽﾄ奇ｿｽ�ｿｽS�ｿｽ�ｿｽv�ｿｽixlWhole�ｿｽj/�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽv�ｿｽixlPart�ｿｽj�ｿｽ�ｿｽ�ｿｽw�ｿｽ閧ｵ�ｿｽﾜゑｿｽ�ｿｽB

�ｿｽ�ｿｽ�ｿｽﾌサ�ｿｽ�ｿｽ�ｿｽv�ｿｽ�ｿｽ�ｿｽﾍ、InputBox�ｿｽ�ｿｽ�ｿｽ\�ｿｽb�ｿｽh�ｿｽﾅ指�ｿｽ閧ｳ�ｿｽ黷ｽ�ｿｽZ�ｿｽ�ｿｽ�ｿｽﾍ囲難ｿｽ�ｿｽﾌセ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾌ会ｿｽ�ｿｽs�ｿｽ�ｿｽ�ｿｽ鼕��ｿｽﾅ削除�ｿｽ�ｿｽ�ｿｽﾜゑｿｽ�ｿｽB

�ｿｽ�ｿｽ�ｿｽT�ｿｽ�ｿｽ�ｿｽv�ｿｽ�ｿｽ�ｿｽ�ｿｽ

Sub Sample()
    Dim rngTarget As Range
    
    On Error Resume Next
    Set rngTarget = Application.InputBox( _
              "�ｿｽﾍ囲ゑｿｽI�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽﾄゑｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ�ｿｽ", Type:=8)
    On Error GoTo 0
    
    If rngTarget Is Nothing Then Exit Sub
        
    rngTarget.Replace vbLf, "", xlPart
End Sub