怎么把一个工作簿的内容完全复制到另一个已知工作簿

幻影之谷

要求是只复制表面内容，格式和复杂的各种公式自定义函数代码什么的都不保留，复制到已知已经建立好工作表一样的工作簿,假设工作簿从实验1复制到实验2，都在一个文件夹里

顺道再问个问题，怎么把有好多工作表的整个工作簿一次性行和列完全转置，非常感谢

lsc900707

建议楼主结合附件进行说明。

幻影之谷

lsc900707 发表于 2018-8-9 15:33
建议楼主结合附件进行说明。

嗯，明白了，谢谢提醒

幻影之谷

随便简单编了一个实验一，整个工作簿转置到实验二，整个工作簿批量无格式复制到实验三，非常感谢

凌空一羽

幻影之谷 发表于 2018-8-9 15:53
随便简单编了一个实验一，整个工作簿转置到实验二，整个工作簿批量无格式复制到实验三，非常感谢

Sub lkyy()
Dim sht As Worksheet, wb2 As Workbook, wb3 As Workbook
Application.DisplayAlerts = False
Set wb2 = Workbooks.Open(ThisWorkbook.Path & "\实验二")
Set wb3 = Workbooks.Open(ThisWorkbook.Path & "\实验三")
For Each sht In ThisWorkbook.Worksheets
    sht.UsedRange.Copy
    wb2.Sheets(sht.Name).[a1].PasteSpecial Transpose:=True
    wb3.Sheets(sht.Name).[a1].PasteSpecial Paste:=xlPasteValues
Next
wb2.Close 1
wb3.Close 1
Set wb2 = Nothing
Set wb3 = Nothing
Application.DisplayAlerts = True
End Sub

幻影之谷

凌空一羽 发表于 2018-8-9 16:52
Sub lkyy()
Dim sht As Worksheet, wb2 As Workbook, wb3 As Workbook
Application.DisplayAlerts = Fa ...

非常感谢亲， 顺道问下，我实验一里的自定义函数怎么才能自动刷新，每次我都要回车才行，比如我看下别的工作簿再回来就要回车了，要不数据就是错误的，不知该怎么改正，第一行已经加了自动刷新了，数据做多了或者自定义函数用多了忘了刷新罪过就大了