工作簿内工作表间数据转移代码优化

kisskings

麻烦老师帮忙改下代码，不糊代码  只能靠录宏，但是执行效率不是一般的太低

目的：将“数据库”工作表中BCD列数据导入“辅助表”ABC列中

1. Sub Up()
   
2.     Sheets("数据库").Select
   
3.     Columns("B:D").Select
   
4.     Selection.Copy
   
5.     Sheets("辅助表").Select
   
6.     Columns("A:C").Select
   
7.     ActiveSheet.Paste
   
8. End Sub

复制代码

liulang0808

Sub Up()
    Application.ScreenUpdating = False
    Sheets("数据库").Columns("B:D").Copy Sheets("辅助表").[a1]
    Application.ScreenUpdating = True
End Sub

kisskings

liulang0808 发表于 2020-1-14 21:22
Sub Up()
    Application.ScreenUpdating = False
    Sheets("数据库").Columns("B:D").Copy Sheets(" ...

版主你好 执行效率还是有些慢    能否检索数据库的数据量（最大行）有针对进行复制

liulang0808

kisskings 发表于 2020-1-14 21:31
版主你好 执行效率还是有些慢    能否检索数据库的数据量（最大行）有针对进行复制

单纯拷贝不会太慢的，楼主是不是又公式，见上传附件看看吧

kisskings

liulang0808 发表于 2020-1-14 22:05
单纯拷贝不会太慢的，楼主是不是又公式，见上传附件看看吧

接近4秒    谢谢版主了

YZC51

Sub Up()
    Application.ScreenUpdating = False
   myr=Sheets("数据库").Cells(Rows.Count, 1).End(xlUp).Row
    Sheets("数据库").Range("B1:D"  & myr).Copy Sheets("辅助表").[a1]
    Application.ScreenUpdating = True
End Sub

kisskings

YZC51 发表于 2020-1-14 22:59
Sub Up()
    Application.ScreenUpdating = False
   myr=Sheets("数据库").Cells(Rows.Count, 1).End(x ...

效率超高  感谢感谢   0.04秒