用VBA获取Excel中命名区域的最后一项

mrwjdhj3  于 2023-01-27  发布在  其他
关注(0)|答案(1)|浏览(116)

通过vba复制模板工作表后,我需要为开始和结束日期设置两个单元格,它们使用引用工作表范围命名范围的数据验证来验证其公式。为此,我需要命名范围的第一个和最后一个条目。
要在设置单元格数据之前测试代码,我有以下代码:
Debug.Print "Charts 1 Start " & Sh.Names("ProjectTemplateDates").RefersToRange(1, 1)
Debug.Print "Charts 1 End " & Sh.Names("ProjectTemplateDates").RefersToRange.End(xlDown).Value
第一个Debug.Print提供了正确的第一项:
Charts 1 Start 01/09/2017
但是最后一个密码给了我:
Charts 1 End 100000
当我期望它给予我Charts 1 End 01/03/2023时。我应该做一些不同的事情来查找命名范围中的最后一个条目吗?

ctehm74n

ctehm74n1#

With sh.Names("ProjectTemplateDates").RefersToRange
    Debug.Print "Charts 1 Start " & .Cells(1, 1)
    
    Debug.Print "Charts 1 End " & .Cells(.Rows.Count + 1, 1).End(xlUp).Value
End With

相关问题