After selecting and copying the data to clipboard in Excel just do

read.excel <- function(header=TRUE,...) {
  read.table("clipboard",sep="\t",header=header,...)
}
 
dat=read.excel()

More details in http://alandgraf.blogspot.com.es/2013/02/copying-data-from-excel-to-r-and-back_24.html