设两个文件都打开,如果只是要内容,可以简单就一句话Sub xcopy()Workbooks("book2.xls").Worksheets("sheet1").Range("A1").Value = Workbooks("book1.xls").Worksheets("sheet1").Range("A1").ValueEnd Sub
先选中哪个单元格/复制,然后在要粘贴的单元格上右击选,选择性粘贴,再在弹出的对话框中选“粘贴内容”
选中要复制的部分执行复制,到目标表格中粘贴