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

[發問] vba程式碼簡化

棋語鳥鳴

中學生 Rank: 2

帖子: 178
主題: 53
精華: 0
積分: 242
點名: 0
作業系統: xp
軟體版本: 2007
閱讀權限: 20
註冊時間: 2011-2-22
最後登錄: 2025-5-20

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2021-9-8 14:29 | 顯示全部帖子

[發問] vba程式碼簡化

以下程式碼，目前小弟是以迴圈方式設計，當資料大時跑的速度有點久，不知有其有辦法再簡化或其他方式執行??
sub aa()
Dim sht As Worksheet
For mon = 1 To 12
Application.EnableEvents = False
         For Each sht In Worksheets
            col = Sheets(mon & "月未結").Range("A1").End(xlToRight).Column
               r = Sheets(mon & "月未結").Range("AA1").Value
            For x = 7 To col
                           For y = 2 To r
                                    mony = Application.IfError(Application.VLookup(Sheets(mon & "月未結").Range("A" & y), Sheets("" & sht.Name).Range("A:U"), Application.Match(Sheets("" & sht.Name).Cells(1, x),
                                                      Sheets("" & sht.Name).Range("A1:U1"), 0), 0), "")
                              Sheets(mon & "月未結").Cells(y, x) = mony
                              Next
            Next
         End If
         Next
Application.EnableEvents = True
Next mon
end sub