按指定要求，将带格式大量数据，从一个Excel工作簿粘贴到另一个Excel工作簿（VBA宏）

        如题，代码注释很详细，稍作修改就可以用，运行前需要打开你的两个工作簿。

        详细解释版本：

                有两个工作簿，每个工作簿都有几百张表，表的数量是一样的，

                我需要从一个工作簿中将指定位置的数据粘贴到另一个工作簿的指定位置，

                要保持格式不变

        我首先尝试了Python，但是失败了，我搞定的地方在于：

                （1）保存问题，一次只能保存一张表而不是一个工作簿。

                （2）格式问题，我需要读出原表格式然后写入新表。

注意：当数据量过大时，请不要关闭屏幕刷新，excel可能会出现”警告：剪贴板错误“，该错误会导致数据中的某几项粘贴出错。

Sub 宏1()
'
' 宏1 宏
'

'
    Dim wb1 As Workbook  '定义一个工作簿变量
    Dim wb2 As Workbook  '定义一个工作部变量
    Dim ws As Worksheet  '定义一个工作表变量
    Dim i As Integer     '定义一个整数型变量