[[20121005154323]]　『VBA結合セルを単一セルに貼り付け』（クゥー）　ページの最後に飛ぶ

『VBA結合セルを単一セルに貼り付け』（クゥー）

セルA1～E1の結合セル（ｾﾙ表示名A1）を下記のように実行すると

 B2からE2が上書きされてしまいます。
 A2の単一セルのみにA1の値が入るようにするにはどうすればいいでしょうか？
 .Range("A1").Select
 Selection.Copy
　
 .Range(A2).Select
 Selection.PasteSpecial Paste:=xlPasteValues

 アップされたコピペ構成ならSample1。通常はSample2かな。

 Sub Sample1()
    With ActiveSheet
        .Range("A1").MergeArea(1).Copy
        .Range("A2").PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False
    End With
 End Sub

 Sub Sample2()
    With ActiveSheet
        .Range("A2").Value = .Range("A1").Value
    End With
 End Sub

 (ぶらっと)

ありがとうございます！！
感謝感謝です！
（クゥー）

コメント返信：

[ 一覧(最新更新順) ]

[[20121005154323]] 『VBA結合セルを単一セルに貼り付け』（クゥー） ページの最後に飛ぶ

[[20121005154323]]　『VBA結合セルを単一セルに貼り付け』（クゥー）　ページの最後に飛ぶ