先頭末尾置換

    Dim EditCell As Range
    For Each EditCell In Selection
        If Me.optAdd = True Then
            EditCell.Value = txtTop.Text & EditCell.Value & txtLast.Text
        Else
            If LeftB(EditCell.Value, LenB(txtTop.Text)) = txtTop.Text Then
                EditCell.Value = RightB(EditCell.Value, LenB(EditCell.Value) - LenB(txtTop.Text))
            End If
            If RightB(EditCell.Value, LenB(txtLast.Text)) = txtLast.Text Then
                EditCell.Value = LeftB(EditCell.Value, LenB(EditCell.Value) - LenB(txtLast.Text))
            End If
        End If
    Next EditCell