Sub 数据导出()
'
' 数据导出 宏
Workbooks.Open Filename:="F:\复制数据表名.xls"
'表格名
Sheets("表格名").Select
Cells.Select
Selection.Clear
Windows("Sheet1.xlsm").Activate
Sheets("表格名").Select
Cells.Select
Selection.Copy
Windows("复制数据表名.xls").Activate
Cells.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Sheet1.xlsm").Activate
Application.CutCopyMode = False
Selection.Copy
Windows("复制数据表名.xls").Activate
Cells.Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
追问你好,我主要目的系想将SHEET1选定的整行数据进行复制,粘贴到SHEET2的非空行里面,有没些简洁点的.
追答这样就不好做了 你这种情况可以采用调用数据透视表的方法做。处理好原始数据好 刷新一下SHEET1表格的数据就出来了! 因为不知道你要的是什么样的效果,所以我也不好具体给出方法!