Question

请帮我优化VBA代码，一运行堆栈溢出，Dim o As Range: Set o = Range("I2:J24")，提示这句，谢谢

Private Sub Worksheet_Change(ByVal Target As Range)
Dim X
Dim X1
Dim X2
Dim X3
Dim o As Range: Set o = Range("I2:J24")
X = Target.Row
If Cells(X, 3) <> "" Then
X1 = Application.VLookup(Range("A" & X), o, 2, False)
X2 = Application.VLookup(Range("D" & X), o, 2, False)
X3 = Cells(X, 5) / X2 * X1
Cells(X, 7) = (X3 - Cells(X, 6)) * (Cells(X, 3) - Cells(X, 2)) * 1440 / 60
Else
Cells(X, 7) = 0
End If
End Sub

Answer 1

这句 Dim o As Range: Set o = Range("I2:J24") 改成：
Dim o As Range
Set o = Range("I2:J24")

追问

按您说的，改为
Dim o As Range
Set o = Range("I2:J24")
后，又提示Set o = Range("I2:J24") 溢出堆栈了。。。

追答

方便的话表格发给我看看，kanoon@unitex.biz