返回列表下一主題上一主題發帖

分割工作表range放變數進去後執行速度變慢

lamb22368

中學生 Rank: 2

帖子: 6
主題: 2
精華: 0
積分: 58
點名: 0
作業系統: win10
軟體版本: office2019
閱讀權限: 20
性別: 女
註冊時間: 2018-6-12
最後登錄: 2021-4-16

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2020-1-15 16:08 | 顯示全部帖子

分割工作表range放變數進去後執行速度變慢

大家好，想請教在指定工作表裡range使用變數時，執行的速度不知為何變得非常慢，連帶刪除工作表時也顯得卡卡的；
但如果改成指定範圍速度就很快，但資料不一定每次都一樣多列，想知道有沒有加快運行的方法，非常感謝~

下列這些容易拖慢excel的功能也都試過，執行起來一樣很慢...

Application.Calculation = xlCalculationManual  '暫停公式自動計算
Application.ScreenUpdating = False  '暫停畫面更新
Application.DisplayStatusBar = False '暫停狀態列更新
Application.EnableEvents = False  '暫停事件處理
Application.Interactive = False  '暫停交互模式

我的檔案：[attach]31643[/attach]

lamb22368

中學生 Rank: 2

帖子: 6
主題: 2
精華: 0
積分: 58
點名: 0
作業系統: win10
軟體版本: office2019
閱讀權限: 20
性別: 女
註冊時間: 2018-6-12
最後登錄: 2021-4-16

2^#

發表於 2020-1-15 16:18 | 顯示全部帖子

糟糕我不會上傳附件

分割工作表range放變數執行速度變慢.rar (25.74 KB)

Public Sub 批次分割工作表()
'複製業務到Z欄
Columns("A:A").Copy
Columns("Z:Z").Insert shift:=xlToRight

'移除重複
ActiveSheet.Range("Z:Z").RemoveDuplicates Columns:=1, Header:=xlYes

'新增工作表
For i = 2 To Range("Z1").End(xlDown).Row
      Sheets.Add after:=Sheets(Sheets.Count)
      Sheets(Sheets.Count).Name = Sheets(1).Cells(i, "Z")

      '不知為何range丟變數進去執行速度變很慢
'       r = Range("A1").End(xlDown).Row
'       Sheets(1).Range("A1:U" & r).AutoFilter field:=1, Criteria1:=Sheets(1).Cells(i, "Z") '篩選這個功能是在Range物件底下的方法
'       Sheets(1).Range("A1:U" & r).Copy Range("A1")


      '直接指定範圍運行速度就很快
      Sheets(1).Range("A1:U14").AutoFilter field:=1, Criteria1:=Sheets(1).Cells(i, "Z") '篩選這個功能是在Range物件底下的方法
      Sheets(1).Range("A1:U14").Copy Range("A1")
Next

Sheets(1).Select
Columns("Z").Delete
Sheets(1).Range("A1:U14").AutoFilter

End Sub

TOP

lamb22368