首页 > 解决方案 > 将命名范围扩展 1 行

问题描述

如何在命名范围的末尾将 1 行插入到命名范围?命名范围应该有 2 行,并且行应该向下移动,但不是在命名范围的开头,而是在结尾。我试过这个但不起作用:

ASheet.Range(Me.Name).Resize(2).Insert Shift:=xlDown
ASheet.Range(Me.Name).End(xlDown).Insert Shift:=xlDown

替代测试:

Range("B17:D17").Name = "test"
Range("test").Resize(2).Insert Shift:=xlDown

我在想的是,如果我应该在命名范围下方插入一行,然后扩展名称范围......假设你不能在 1 行命名范围内插入一行。

标签: excelvba

解决方案


我认为这是解决方案之一......但需要重命名命名范围。

Range("B17:D17").Name = "test"
Range("test").Rows(2).Insert Shift:=xlDown
Range("B17:D18").Name = "test"

推荐阅读