在VBA中使用Excel已定义名称（Range Name）的问题

你遇到的类型不匹配错误，是因为ActiveWorkbook.Names("GridStartDate").Value返回的是名称的引用公式字符串（比如=Config!$E$1），而非单元格的日期值，而DateDiff需要的是日期类型参数，因此报错。

以下是两种可靠的解决方法：

方法1：使用RefersToRange属性直接获取单元格区域 #

通过名称对象的RefersToRange属性，可以直接定位到名称指向的单元格，再读取其值：

ShiftCells = DateDiff("d", ActiveWorkbook.Names("GridStartDate").RefersToRange.Value, StartingDate)

该方法适用于名称指向单个单元格或单元格区域的场景，若指向区域，可根据需求调整取值方式（如RefersToRange.Cells(1,1).Value）。

方法2：使用Evaluate方法解析名称 #

Evaluate函数会直接解析名称对应的内容，返回单元格的实际值，代码更简洁：

ShiftCells = DateDiff("d", Evaluate("GridStartDate"), StartingDate)

额外提示：避免名称不存在的运行时错误 #

如果担心名称可能被删除，可先判断名称是否存在：

Dim targetName As Name
On Error Resume Next
Set targetName = ActiveWorkbook.Names("GridStartDate")
On Error GoTo 0

If Not targetName Is Nothing Then
    ShiftCells = DateDiff("d", targetName.RefersToRange.Value, StartingDate)
Else
    MsgBox "定义名称GridStartDate不存在，请检查名称管理器"
End If

内容的提问来源于stack exchange，提问作者Rob