VBA 命名范围

Question

我在下面有一个代码，我尝试将引用的范围更改为动态范围。我在某种程度上引用它是错误的。任何想法如何解决这一问题？基本上Workrange 参考很好，如果我去Workrange.Select，但它在相交上下文中不起作用。

Set StartCell = Range("A5")
Set StartSheet = Worksheets("Data")

With Worksheets("Data").Range("A4:BZ4")
    Set LastColumn = .Find("Comment", LookIn:=xlValues)
End With

Set Workrange = StartSheet.Range(StartCell, StartSheet.Cells(5000, LastColumn.Column))

If Not Intersect(Target, Range("Workrange")) Is Nothing Then ' --> This does NOT work

'If Not Intersect(Target, Range("A5:AC5000")) Is Nothing Then --> THIS WORKS.
If Target.Count > 1 Then Exit Sub
Cells(Target.Row, LastColumn.Column + 1).Value = Environ("username")
Cells(Target.Row, LastColumn.Column + 2).Value = Format(Now, "dd/mm/yyyy_hh.mm.ss")
End If
End Sub

Answer 1

应该是：

If Not Intersect(Target, Workrange) Is Nothing Then

当使用Range("Workrange") 时，它会在名为“Workrange”（公式-> 名称管理器）的工作簿中寻找一个范围。