請大大幫忙優化一個簡單的excel vba sub

各位大大,

我寫了一個簡單的excel vba sub,每次run都要花費一天以上的時間,因為要餵資料給i , j數十萬筆,每筆都需經if判斷條件成立後方可進入worksheets("眾數-1")運算,得出結果再複製到worksheets("眾數-1")內之bd,be,bf欄位,本人是初學者,請教各位大大能否撥冗將我寫的sub優化,縮減運算時間,感恩不盡!!

Sub wsj()

Application.EnableEvents = False

Application.Interactive = False

Application.ScreenUpdating = False

Application.DisplayStatusBar = False

Dim i, j, k As Integer

k = 1

With Worksheets("眾數-1")

For i = 1 To 300

For j = 30 To 400 - i

.Range("h2") = i

.Range("l2") = j

If .Range("m13") < 3 And .Range("g13") > 9 Then

k = k + 1

.Range("bd" & (k)).Value =.Range("h2")

.Range("be" & (k)).Value =.Range("l2")

.Range("bf" & (k)).Value = .Range("m13")

End If

Next j

Next i

End With

Application.EnableEvents = True

Application.Interactive = True

Application.ScreenUpdating = True

Application.DisplayStatusBar = True

End Sub