Thread: pasting "go to" values into a new column

Do you mean that you are using Go To Special to select a noncontinuous range? I don't know of a way to do this except by VBA. This code is for 2007 (for 2003 it would need to constrain its validity check to column IV).

Code:

Public Sub CopyParallel()
   Dim c As Range
   Dim dest As String
 
   dest = UCase(InputBox("Enter destination column:"))
   If (dest >= "A" And dest <= "Z") Or _
      (dest >= "AA" And dest <= "ZZ") Or _
      (dest >= "AAA" And dest <= "XFD") Then
      For Each c In Selection
         Range(dest & c.Row).Value = c.Value
      Next c
   Else
      MsgBox dest & " is not a valid column"
   End If
 
End Sub