Excelマクロの転記について

下記コードで転記をするのですが、その際に、任意の文字を追加して転記したいです。

ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー

Dim nyuuryoku As Range, masterrange As Range
Set nyuuryoku = ThisWorkbook.Worksheets("入力シート１").Cells(7, 5)
Dim wb As Workbook
Set wb = Workbooks.Open("book2.xlsm")
Set masterrange = wb.Worksheets("受注シート１").Cells(Rows.Count, 11).End(xlUp).Offset(1#)
masterrange.Value = nyuuryoku.Value

ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー

例えば、転記元のセル（上記の場合、Cells（7,5））に、「港区」と入力されているとして、転記先のセルに「東京都」と加えて、「東京都港区」と表示させたい場合、どういったコードを追加すればいいでしょうか？

「東京都」以外にも複数のパターンがあるので、転記先のセルの書式設定で「"東京都"G/標準」のような書式設定はできないものとしてお考え頂きたいです。

拙い説明で申し訳ございませんが、お力をお貸しして頂けると助かります。

宜しくお願い致します。

No.3 ベストアンサー 回答者： ぽち101 回答日時： 2021/04/19 12:17

いくつか方法や条件があるのですが、ひとまずこれだとどうでしょうか？

先ほどの回答の変更をもとに戻した上で３行を追加します。
masterrange.Value = nyuuryoku.Value
If nyuuryoku.Value <> "" Then
masterrange.Value = "東京都" & nyuuryoku.Value
End If

１行目：転記先に転記元のセル内容を入れる
２行目：もし、転記元のセルが空だったら
３行目：転記先に、東京都と転記元のセル内容を足して入れる
４行目：２行目のために必要

質問者さんの要望と違った理解になっていたらすみませんが、
もう一度補足をお願いします。

この回答へのお礼

重ねてのご回答ありがとうございました。

教えて頂いたコードで、無事希望通りの操作ができました。
拙い説明にも関わらず、ご丁寧にご回答くださりありがとうございます。

今後も宜しくお願い致します。

お礼日時：2021/04/19 13:07

No.2 回答者： ぽち101 回答日時： 2021/04/19 11:36

前後が逆でした。

masterrange.Value = "東京都" & nyuuryoku.Value
失礼しました。

この回答へのお礼

ご回答ありがとうございます。

希望する結果が得られたのですが、また別の問題が発生してしまいました。
最初の投稿でお伝えしておけば良かったのですが、
記載したコードを6セット使用し、1~6個のデータを一括で転記をしています。
転記したいデータが6個あればご回答頂いたコードで問題ないのですが、
例えば転記したいデータが1個だった場合、残り5行に「東京都」のみが転記されてしまいます。
転記元のデータがない場合、「東京都」を入力させない方法はありますでしょうか？

説明が分かりづらくで申し訳ございません。
もし分かれば教えて頂きたいです。

宜しくお願い致します。

お礼日時：2021/04/19 12:00

No.1 回答者： ぽち101 回答日時： 2021/04/19 11:35

最後の行を

masterrange.Value = nyuuryoku.Value & "東京都"
にするとどうでしょうか？