Pasting values into merged cells?

jeffreybrown

Well-known Member

Joined

Jul 28, 2004

Messages

5,152

• Feb 18, 2009

• #2

Yes you are having that trouble because the dimensions of the cells are not alike. You may not want to split the cells and start over, but sometimes its the neccessary road to travel. There was talk of this recently.

http://www.mrexcel.com/forum/showthread.php?t=371191&highlight=merged+cells

 

Upvote 0

Colin Legg

MrExcel MVP

Joined

Feb 28, 2008

Messages

3,503

Office Version

1. 365

Platform

1. Windows

• Feb 18, 2009

• #3

Say that you want to copy the cell A2 into the merged cells C2/D2.

You can use any of these:

Code:

Sub foo()
    
    Range("A2").Copy Range("C2:D2")
    
    Range("A2").Copy Range("C2").MergeArea
     
    Range("C2").Value = Range("A2").Value
    
End Sub

Hope that helps...

 

Upvote 0

R

RPM7

Board Regular

Joined

Nov 28, 2007

Messages

191

• Feb 18, 2009

• #4

Thanks for the replies.

I'm actually copying from sheet 3 and pasting in sheet 1.
How would you work that into the code?

Sheets("Sheet3").Select
Range("r35").Select
Selection.Copy
Sheets("Sheet1").Select
Range("G8:h8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

 

Upvote 0

Colin Legg

MrExcel MVP

Joined

Feb 28, 2008

Messages

3,503

Office Version

1. 365

Platform

1. Windows

• Feb 18, 2009

• #5

Using the third example, you can replace all of that code with this:

Code:

Sub foo()
    Sheets("Sheet1").Range("G8").Value = Sheets("Sheet3").Range("r35").Value
End Sub

 

Upvote 0

R

RPM7

Board Regular

Joined

Nov 28, 2007

Messages

191

• Feb 18, 2009

• #6

Thanks Colin & JRB.

Its all working fine now.

 

Upvote 0