【マクロ】１つのセルから結合されているセルへのコピー貼り付けについて

表題の件、やり方ご存じの方、教えて下さい

A1セルのデータを、結合された A2:E2へ
値はりつけしたいです。

下記コードで実行するとエラーになります

【コード】
Sub マクロ()

Range("A1").Copy

Range("A2:E2").PasteSpecial xlPasteValues

End Sub

No.3 ベストアンサー 回答者： fujillin 回答日時： 2024/01/28 21:57

こんばんは

結合セルの値は、結合範囲の左上のセルで代表されています。
（残りのセルは、値なし）
ですので、値のみの代入でよければ
　Range("A2").Value = Range("A1").Value
とすることで可能です。

※ 書式等もまとめてコピーしたい場合は、コピーメソッドで行ってください。

この回答へのお礼

お返事ありがとうございます
出来ました。次に別シートへのコピー貼り付けを実行
しましたら、できませんでした。方法ご存じでしたら
指南の程、お願いします

【コード動きませんでした】
Sub セル結合()


Worksheets("sheet1").Range("A1").Value = Worksheets("Sheet1").Range("A2").Value


End Sub

お礼日時：2024/01/29 05:37

No.4 回答者： 河内のおやじ 回答日時： 2024/01/29 08:55

Sub CopyPasteData()

Dim sourceRange As Range
Dim targetRange As Range

' コピー元のセルを指定
Set sourceRange = Range("A1")

' 貼り付け先の結合セルを指定
Set targetRange = Range("A2:E2")

' コピー元から値を取得し、結合セルに値を設定
For Each cell In targetRange
cell.Value = sourceRange.Value
Next cell
End Sub

No.2 回答者： 河内のおやじ 回答日時： 2024/01/28 21:41

Sub CopyPasteData()

Range("A1").Copy
Range("A2:E2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

この回答へのお礼

返信ありがとうございます

エラーができました。
同じサイズに結合して下さい。メッセージ出ました

また、出来たら、ご指導、お願いします。

お礼日時：2024/01/29 05:40

No.1 回答者： 中山あ 回答日時： 2024/01/28 21:36

範囲指定ではなくて、A2で指定したら出来ませんか？

この回答へのお礼

返答ありがとうございます

出来ませんでした

お礼日時：2024/01/29 05:40