m077

小學生 Rank: 1

帖子: 4
主題: 1
精華: 0
積分: 10
點名: 0
作業系統: XP
軟體版本: Office2003
閱讀權限: 10
性別: 男
註冊時間: 2013-1-28
最後登錄: 2013-1-30

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-1-28 16:21 | 只看該作者

[發問] 請問有辦法加快VBA執行的速度嗎?

主要是利用VBA 進行資料篩選後
將需要的資料由Sheet1(母資料頁面)複製到Sheet2(子資料頁面
但母資料頁面里約有4萬列，每列約有40行)
因此執行起來速度很慢
還請各位高人指點，是否有辦法改善執行數度
感謝

由於Excel 檔案太大
因此先上傳程式碼..

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 255
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-24

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2013-1-28 16:33 | 只看該作者

回復 1# m077

資料/篩選
的功能有試過嗎?

學海無涯_不恥下問

TOP

m077

小學生 Rank: 1

帖子: 4
主題: 1
精華: 0
積分: 10
點名: 0
作業系統: XP
軟體版本: Office2003
閱讀權限: 10
性別: 男
註冊時間: 2013-1-28
最後登錄: 2013-1-30

3^#

發表於 2013-1-28 16:48 | 只看該作者

回復 2# Hsieh

因為主要目的是想要將不同條件的資料獨立到不同sheet 作後續的分析
原先的方式是下面這種(不知道您指的是不是這種方式)
[attach]14090[/attach]

不過發現當資料數太大時，常會發現子資料頁面裡的資料會有摻雜其他條件的資料(篩選不完整)
因此才嘗試這總方式~

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

4^#

發表於 2013-1-29 23:05 | 只看該作者

回復 1# m077
沒上傳 ... 自己試試行否

Sub Test()
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim r As Long, i As Long
Dim ar, rngCopy As Range
With Workbooks("vbtest.xls")
With .Sheets("sheet1")
r = .Cells(.Rows.Count, "G").End(xlUp).Row
ar = Application.Transpose(.Range(.Cells(1, 30), .Cells(r, 30)).Value)
For i = 2 To r
If ar(i) = "C2A4TST1" Then
If rngCopy Is Nothing Then Set rngCopy = .Rows(i) Else Set rngCopy = Union(rngCopy, .Rows(i))
End If
Next
.Select
rngCopy.Copy .Sheets("sheet2").Range("A" & .Rows.Count).End(xlUp).Offset(1)
.Sheets("sheet2").Select
End With
End With
Set rngCopy = Nothing
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub