如何在vba中用array函数给列标题赋值时自适应列数?





在vba中array函数可以生成数组,在平时我们经常用array函数生成数据表的列标题。

比如要往Sheet1工作表的第一行填入列标题,我们可以使用如下的代码

但是,当列标题有增减的时候,需要去调整

很不方便,这个时候可以使用resize属性结合arr的Ubound来自适应列标题的数量。代码修改为如下:

通过以上的代码,无论列标题如何增减,都可以自适应列数了。

发表评论