无效使用属性编译错误

Question

我无法正确使用属性编译错误。有任何想法吗？此代码是捕获变更管理信息的项目的一部分。

 Sub New_Process(target As Range)

     Dim vNewRng As Range, vOldRng As Range, r As Range
     Set vNewRng = target

     Application.Undo

     Set vOldRng = Range(vNewRng.Address())

     For Each r In vOldRng
         r.Value
     Next r

End Sub

Answer 1

r.Value应该是有意义的。

E.g。 r.Value = r.Value 或r.Value = "vityata"