作者：乔山办公网日期：
返回目录：excel表格制作
需要自复已写，录制估计有些问题，另外，您这种新制建小号，比百较难受欢迎，别人一般不度会回答，因为知有很多无聊的人闹着玩的。
以下代码请参考。道
Public Sub aa()
Workbooks.Open ActiveWorkbook.Path & "\book2.xls"
Workbooks("book1").Sheets("sheet1").Activate
Sheets("sheet1").Range("a:f").Copy
Workbooks("book2").Sheets("sheet1").Activate
Sheets("sheet1").Range("a:f").PasteSpecial
Workbooks("book2").Save
Workbooks("book2").Close
End Sub
Sub Macro1()
Sheets("Sheet1").Select
Cells.Select
Selection.Copy
Sheets("Sheet2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
宏名为macro1，表百1为sheet1，表2为sheet2 ，可度根据实际修改。
其实自己录一个更好。方法是：依次点菜单：工具-宏-录制新宏，在回弹出的答对话框中输入宏名（可以默认的），确定之后开始录制。点表1，再同时按Ctrl+A就可选择表1全部内容，按Ctrl+V完成复制。点表2，点a1单元格，同时按Alt+E键，再按S键，在弹出的对话框中点选“数值”，确定并点停止录制按钮，完成录制。再打开工具-宏-宏，就可以看到你刚才录制的宏了，可以运行，也可以编辑。
你这括知号里什么都道不写总不行吧？ 不如改成回下答面这样吧
Dim R As Range
For Each R In Sheet3.UsedRange
If R.HasFormula Then R.Copy ActiveSheet.Range(R.Address)
Next
Sub CopyPasteWorksheetContentByValue()
'声明源及目标工作抄表
dim wsSrc as Worksheet, wsTarget as Worksheet
'设置变量指向工作表，将Sheet1和Sheet2替换为实际的工作表名称
set wsSrc = Worksheets("Sheet1")
set wsTarget = Worksheets("Sheet2")
'复制源表所有区域
wsSrc.UsedRange.Copy
'粘帖到目标表指定单元格
wsTarget.Range("A1").PasteSpecial xlPasteValues
End Sub
核心就是Range.Copy和Range.PasteSpecial两个函数
需要复用的可以自袭行将上述涉及的工作表名称，目标单元格，甚至源单元格作为参数传入后zd调用