Microsoft Office Forums - View Single Post - [Solved] Paste value of selected cell to adjacent cell

Guessed · 08-26-2021, 12:28 AM

There is probably a more elegant way but this appears to work

Code:

Sub CopyBeside()
  Dim aCell As Range
  For Each aCell In Selection
    aCell.Copy Destination:=aCell.Offset(0, 1)
  Next aCell
End Sub

And there we have another way courtesy of Purfleet - note there will likely be a difference with how a discontinuous selection works with these two alternative approaches.