特殊置換

    Dim SearchString As String
    Dim ReplaceString As String
    Dim c As Range
    Data.getItemData
    SearchString = Me.txtOld.Text
    ReplaceString = Me.txtNew.Text
    If Me.chkSpecial.Value = True Then
        SearchString = Replace(SearchString, "\t", vbTab)
        SearchString = Replace(SearchString, "\r", vbCrLf)
        ReplaceString = Replace(ReplaceString, "\t", vbTab)
        ReplaceString = Replace(ReplaceString, "\r", vbCrLf)
    End If
    For Each c In Selection
        c.Value = Replace(c.Value, SearchString, ReplaceString)
    Next c