Ubound | ExcelOffice

如何在vba中给数组增加元素或者减少元素？

2018年3月12日作者：exceloffice

暂无评论

在使用数组的过程中，有时候会需要给数组增加或者减少元素的情况。

比如定义了一个固定元素数组arr(2)，现在想要在数组的头部增加两个元素，使得新的两个元素成为新数组的头两个元素，可以使用如下的代码：

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

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中的数组知识汇总

2017年5月16日作者：exceloffice

暂无评论

定义数组变量

dim arr( 1 to 10)定义了一个可以容纳10个元素的一维数组变量arr，

dim arr(1 to 10,1 to 2) 定义了一个可以容纳20个元素的二维数组变量arr。

获取数组指定维度的上下标

LBound 和 UBound 函数可[……]

阅读全文

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

2017年3月12日作者：exceloffice

暂无评论

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

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

Sub QQ1722187970()
    Dim oWK As Worksheet
    Set oWK = Excel.Worksheets("Sheet1")
    Dim arr
    arr = Array("成交时间", "股票代码", "股票名称", "异动类型", "异动信息", "成交价格", "涨跌幅(%)", "换手率", "详细信息")
    oWK.Range("a1:i1") = arr
End Sub

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-5b3[……]

阅读全文

如何在vba中给数组增加元素或者减少元素？

vba中的数组知识汇总

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

分类目录

近期文章

功能

如何在vba中给数组增加元素或者减少元素？

vba中的数组知识汇总

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

分类目录

近期文章

标签

功能