关注和分享Excel以及Office系列软件的方方面面，致力于提高中国的办公软件的使用水平
在使用数组的过程中，有时候会需要给数组增加或者减少元素的情况。
比如定义了一个固定元素数组arr(2)，现在想要在数组的头部增加两个元素，使得新的两个元素成为新数组的头两个元素，可以使用如下的代码：
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
Sub QQ1722187970() '原来的数组 Dim arr(2) As Byte arr(0) = 1 arr(1) = 2 arr(2) = 3 Dim nArr() As Byte '增加元素后的数组 ReDim nArr(UBound(arr) + 2) For i = 2 To UBound(nArr) nArr(i) = arr(i - 2) Next i End Sub |
比如定义了一个固定元素数[……]
在vba中array函数可以生成数组，在平时我们经常用array函数生成数据表的列标题。
比如要往Sheet1工作表的第一行填入列标题，我们可以使用如下的代码
|
1 2 3 4 5 6 7 |
Sub QQ1722187970() Dim oWK As Worksheet Set oWK = Excel.Worksheets("Sheet1") Dim arr arr = Array("成交时间", "股票代码", "股票名称", "异动类型", "异动信息", "成交价格", "涨跌幅(%)", "换手率", "详细信息") oWK.Range("a1:i1") = arr End Sub |
但是，当列标题有增减的时候，需要去调整
[crayon-5c1[……]