VBA中Range地址为$127:$127时Intersect函数调用失败的问题咨询

问题：传递的target.address变量是$127:$127，从范围的角度来看这是什么意思？另外在r.updateSheet中尝试使用Application.Intersect(ws.Range("A:A"), Range(target.Address))时，这个奇怪的范围似乎导致调用失败，这是为什么？

您好，我来帮您一步步分析：

一、$127:$127的含义 #

这个地址代表Excel中的第127整行。在VBA的Range表示规则里，$行号:$行号格式专门用来指代某一整行的所有单元格，和Columns("A:A")指代A整列的逻辑完全一致。当Worksheet_Change事件触发时拿到这个target，说明你刚才的操作（比如修改、选中）涉及到第127行的单元格，导致Excel将target识别为整行范围。

二、Intersect调用失败的原因 #

核心问题出在Range(target.Address)这个写法上：
VBA中如果直接使用Range()而不指定工作表，默认会关联到当前活动工作表。如果你的ws变量指向的工作表，和target所在的工作表、或者当前活动工作表不是同一个，就会出现“跨工作表求区域交集”的情况——而Excel的Intersect函数只能处理同一工作表内的区域，这种跨表操作会直接导致调用失败（通常返回Nothing或者抛出运行时错误）。

三、修正方案 #

给你两个简单可行的解决办法：

• 方案一：直接使用target对象
  既然target已经是一个包含工作表上下文的Range对象，完全没必要通过地址重新获取，直接传入即可：

  Application.Intersect(ws.Range("A:A"), target)
  

  这样能确保两个区域的工作表上下文一致，正常计算出交集（也就是A127单元格）。

• 方案二：指定工作表获取Range
  如果一定要通过地址来获取Range，必须明确指定工作表，保证两个Range属于同一个工作表：

  Application.Intersect(ws.Range("A:A"), ws.Range(target.Address))
  

附上你提供的事件代码片段：

Private Sub Worksheet_Change(ByVal target As Excel.Range)
    If r Is Nothing Then Set r = New Revenues
    'ByVal target.address is $127:$127
    r.updateSheet target
End Sub

备注：内容来源于stack exchange，提问作者TechFanDan