Excel（マクロ）セルのコピーについて

質問

いつも活用させていただいているものになります。

Excelのマクロを使って下記の内容を実現したいと考えています。
ご教授していただけたら幸いでございます。

（※関数を使わずあくまでもマクロで）

＜例＞
Sheet1　A3：鈴木　B4：太郎　A6：様　　
（↑上記をコピーして以下のように１つにセルに貼り付けたい）

Sheet2　A1：鈴木 太郎様　　（鈴木と太郎の間にスペース）

お手数ですが、教えていただけないでしょうか。

回答No.2

imogasi · ベストアンサー

関数と一緒ですよ。
＆結合子でくっつける。
Sheet2をアクチブにして
Sub test01()
Dim sh1 As Worksheet
Set sh1 = Worksheets("Sheet1")
[A1] = sh1.[a3] & sh1.[B4] & sh1.[a6]
End Sub
変わった書き方をしてますが、上記でもできます。

お礼

無事に解決することができました。
ありがとうございます。

補足

無事に解決することができました。
ありがとうございます。

回答No.1

cafe_au_lait

一例です。

Sub Sample()
With ActiveWorkbook.Sheets("Sheet1")
ActiveWorkbook.Sheets("Sheet2").Range("A1").Value = _
.Range("A3").Value & " " & .Range("B4").Value & .Range("A6").Value
End With
End Sub