ThisWorkbook.Save运行 非常慢

托起太阳

一个excel 文件里面有30多张表，前面运行都正常，由于共享，需要快速存储，否则回出现错误，但是加入ThisWorkbook.Save命令行后 速度奇慢，要几分钟。并且没有正真保存在文件里面，请教大家  看看VBA有无错误
Private Sub CommandButton1_Click()
Dim Data(14) As Variant
Dim i, j As Integer
Set inputsheet = Application.ThisWorkbook.Worksheets("请假单输入")   ' 定义工作表
Set printsheet = Application.ThisWorkbook.Worksheets("请假单存储表") ' 获取单元格数据并存储在数组中
Data(1) = inputsheet.Range("e5")
Data(2) = inputsheet.Range("E6")
Data(3) = inputsheet.Range("E7")
Data(4) = inputsheet.Range("E8")
Data(5) = inputsheet.Range("E9")
Data(6) = inputsheet.Range("E10")
Data(7) = inputsheet.Range("E11")
Data(8) = inputsheet.Range("E12")
Data(9) = inputsheet.Range("E13")
Data(10) = inputsheet.Range("E14")
Data(11) = inputsheet.Range("E15")
Data(12) = inputsheet.Range("E16")
Data(13) = inputsheet.Range("E17")
Data(14) = inputsheet.Range("E20")

For i = 1 To 2000
  If printsheet.Cells(i, 1) = "" Then ' 判断写入数据表中第-一个单元那个为空
       For j = 1 To 14
            printsheet.Cells(i, j) = Data(j) ' 将数组中的值一次写入 数据存储表

            Next
       Exit For ' 退出第二个循环
   End If


ThisWorkbook.Save



       Sheets("请假单").Select 'sheet3为工作表名
       Next
  End Sub

zpy2

由于共享，需要快速存储

不共享，是不是会快一点？

托起太阳

就是不共享速度也非常慢  现在想了一个其他办法来变通解决，现在要对12张表进行合并，有一些问题需要求教  就是合并结构相同的12张不连续的表，表名设置成了101   102 直到 112  结构相同 行从A3开始，共有15列 到o列 汇总到请假单汇总表页里，工作簿里还有其他表  能不能帮我做一个通过按钮操作的合并VBA   每次合并  可以全覆盖