同样的sub copytofile宏，在excel2019中可以运行，2021中无法运行，求救或者优化

hkyuer

Sub CopyToFile()

Dim WB1 As Workbook, WB2 As Workbook

  Application.ScreenUpdating = False

  Set WB1 = Application.Workbooks.Open(ThisWorkbook.Path & "\发货明细.xlsx")
  Set WB2 = Application.Workbooks.Open(ThisWorkbook.Path & "\发货明细及对账单.xlsx")

  WB1.ActiveSheet.Range("C2:E5000,G2:H5000,R2:S5000,U2:U5000").Copy WB2.Sheets(1).Range("C2:J5000")

  WB1.Close True
  WB2.SaveAs Filename:=ThisWorkbook.Path & "\对账单\" & _


Format(Date, "mm月dd号") & "发货明细及对账单.xlsx"
  WB2.Close True

  Application.ScreenUpdating = True

End Sub            


在2019中可以自动运行，在office 2021中打开宏表格就卡死，无法执行。换了好几个版本的2021了，均不行。。。求大神给优化下代码。主要是想更新2021用unique公式，提取不同值

3190496160

代码本身并没有啥问题，这种调试代码更是应该要上传附件的呀

hkyuer

已上传附件

hkyuer

应该是调用的数据太多，怎么优化一下，或者换个思路呢，求大神解答

zpy2

hkyuer 发表于 2023-3-18 13:50
应该是调用的数据太多，怎么优化一下，或者换个思路呢，求大神解答

该是调用的数据太多

2021数据少就没有问题了？

hkyuer

zpy2 发表于 2023-3-18 13:52
该是调用的数据太多

2021数据少就没有问题了？

是的，数据少的， 2021就不会卡住。数据一多打开宏就卡住。数据再多2019也不会卡。刚才又装了office 365照样卡住

hkyuer

例如这个表，数据也不多，2021无法运行宏

zpy2

hkyuer 发表于 2023-3-18 14:06
是的，数据少的， 2021就不会卡住。数据一多打开宏就卡住。数据再多2019也不会卡。刚才又装了office 365 ...

是的，数据少的， 2021就不会卡住。

应该是新版本对配置要求比较高，所以，要么升级一下电脑，要么就不用2021

zpy2

zpy2 发表于 2023-3-18 16:22
是的，数据少的， 2021就不会卡住。

应该是新版本对配置要求比较高，所以，要么升级一下电脑，要么就 ...

提取不同值得方法也很多，你说的优化代码包括不使用vba吗？

hkyuer

zpy2 发表于 2023-3-18 16:23
提取不同值得方法也很多，你说的优化代码包括不使用vba吗？

可以不是用vba，只要能实现方便自动出账就可以的