用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来实现哇！
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024