0

修改范围的内容后,我循环遍历它以找出存在多少行(计数器),然后调整范围的大小。这适用于一个范围,但不适用于另一个范围。

下面的代码是来自测试 Sub 的剪辑,适用于前三行。第 4 行产生运行时错误“1004”。

...
With ActiveWorkbook.Names.Item("Namelist")
.RefersTo = .RefersToRange.Resize(Counter / 2, 4)
End With
With ActiveWorkbook.Names.Item("BBTMembers") 'Run-time error '1004':
                                             'Application-defined or.... 
.RefersTo = .RefersToRange.Resize(Counter / 2, 4)
Range("BBTMembers2") = Range("BBTMembers").Resize(Counter, 4)
End With
...

范围定义为 Variant 并初始化为 (0 To 2, 0 To 100)。我很困惑为什么一个有效而另一个无效。我曾尝试更改 BBTMembers 的拼写等。

4

0 回答 0