エクセルで患者の名前の後に全員 様を付けたい。

エクセル　VBAで例えばセルA2以下　ずらっと患者の名前が下に並んでいたとする、このとき
マウスでなぞった範囲で自動的に様（一コマ置いてスペース様）を付けたいがどうすればいいか。

以前　○○を前につける場合は

Dim r As Range
For Each r In Selection
r.Value = "○○" & r.Value
Next r
End Sub
だと教えていただいたが、後につける場合はどうすればいいのでしょうか。ご教授ください。

No.2 回答者： 来世はトンビ 回答日時： 2019/04/29 06:21

これでいかがでしょうか

Sub test()
Dim r As Range
For Each r In Selection
If Right(r.Value, 1) = "様" Then
r.Value = r.Value & ""
Else
r.Value = r.Value & "様"
End If
Next r
End Sub

後ろに”様”がついているセルには、”様”をつけません

この回答へのお礼

有難うございました。できました！！！

お礼日時：2019/04/29 13:22

No.1 回答者： amerikaumare 回答日時： 2019/04/29 06:13

r.Value = r.Value & "○○"

この回答へのお礼

前と後ろそのようにするんですね！　有難うございました！

お礼日時：2019/04/29 13:23