只要运行到if rng=rngs then 这一句就“运行时错误13” 请问怎么破啊

nazipanzer

'千元用量调整量与订货一览表调整量变动同步
Sub 订货量核对无误后对千元用量进行同步()
Dim unpss As Worksheet
For Each unpss In Worksheets
unpss.Unprotect Password:="HITler900401"
Next

'禁止刷频，提速字段（头）
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Dim rng As Range, rngs As Range
For Each rng In Worksheets("5.千元用量表").Range("b5:b505")
For Each rngs In Worksheets("4.订货一览表").Range("a4:bh504")
If rng = rngs Then
Worksheets("5.千元用量表").Cells(rng.Row, 12) = [rngs].Offset(0, 2)
GoTo 1000
End If
Next rngs
1000:
Next rng

Dim pss As Worksheet
For Each pss In Worksheets
pss.Protect Password:="HITler900401"
Next


'禁止刷频，提速字段(尾）
Application.ScreenUpdating = xlCalculationAutomatic
Application.Calculation = True

End Sub

pengyx

没附件，没真象。我感觉把worksheets，改成sheets试试。怎么可能同时有两个worksheets喃

nazipanzer

pengyx 发表于 2016-8-5 22:35
没附件，没真象。我感觉把worksheets，改成sheets试试。怎么可能同时有两个worksheets喃

附件压缩以后也大于了500kb 哎 传不上来啊。。。会不会是因为引用的单元格里面有公式啊？