怎样可以将多个excel表中的某一列自动合并到一个excel表

用VBA。如果表格是工作簿的话。用下列VBA代码可以解决你的问题
public sub CopyCellFromBook
Dim filename, msg, bookname As String
Dim k, i, r As Long
Dim lastrow As Long

bookname = ThisWorkbook.Name
filename = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls),*.xls,", FilterIndex:=0, Title:="选择要拷贝的工作簿", MultiSelect:=True)
If Not IsArray(filename) Then
MsgBox "请选择工作簿"
Exit Sub
End If
r = 2

For i = LBound(filename) To UBound(filename)
Workbooks.Open filename:=filename(i), Editable:=False

lastrow = Workbooks(2).Sheets(1).UsedRange.Rows.Count

For k = 2 To lastrow
If Workbooks(2).Sheets(1).Cells(k, 1) <> "" Then
Workbooks(1).Sheets(1).Cells(r, 1) = Workbooks(2).Sheets(1).Cells(k, 1)
Workbooks(1).Sheets(1).Cells(r, 2) = Workbooks(2).Sheets(1).Cells(k, 2)
Workbooks(1).Sheets(1).Cells(r, 3) = Workbooks(2).Sheets(1).Cells(k, 3)
r = r + 1
End If
Next k

Next i
Workbooks(2).Close
end sub

在sheet1/sheet2/sheet3那个地方单击右键，选择第四项“移动”，“至”你要的主工作表文件里面去。依次这样子做就可以

数据汇总的三种方法
http://club.excelhome.net/thread-570911-1-1.html
仔细看上面的链接示例，
如果不是很明白，也可以百度HI我。

还不如直接复制，没什么特别的方法~

vba来实现哇！