修改范围的内容后,我循环遍历它以找出存在多少行(计数器),然后调整范围的大小。这适用于一个范围,但不适用于另一个范围。
下面的代码是来自测试 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 的拼写等。