vba数组操作方法大全图解 分享vba编程基础知识(2)

vba数组操作方法大全图解

str1 = str1 & “第3维：” & UBound(aData, 3) & vbNewLine

MsgBox str1

End Sub

5 数组元素排序

Option Base 1

Sub 数据排序()

Dim i As Integer, j As Integer

Dim k

Dim s(10) As Integer

For i = 1 To 10

s(i) = Application.InputBox(“输入第” & i & “个数据：”, “输入数组”, , , , , , 1)

Next

For i = 1 To 9

For j = i + 1 To 10

If s(i) < s(j) Then

t = s(i)

s(i) = s(j)

s(j) = t

End If

Next

Next

For Each k In s

Debug.Print k

Next

End Sub

6 用数组生成彩票号码

Option Base 1

Sub 幸运号码()

Dim n As Integer, i As Integer, j As Integer

Dim l() As Integer

n = Application.InputBox(“请输入需要产生幸运号码的数量：”, “幸运号码”, , , , , , 2)

ReDim l(n, 7) As Integer

For i = 1 To n

For j = 1 To 7

Randomize

l(i, j) = Int(10 * Rnd)

Next

Next

For i = 1 To n

For j = 1 To 7

Debug.Print l(i, j);

Next

Debug.Print

Next

End Sub

7 用数组填充单元格区域

Option Base 1

Sub 数组填充单元格区域()

Dim i As Long, j As Long

Dim col As Long, row As Long

Dim arr() As Long

row = Application.InputBox(prompt:=”输入行数：”, Type:=2)

col = Application.InputBox(prompt:=”输入列数：”, Type:=2)

ReDim arr(row, col)

For i = 1 To row

For j = 1 To col

arr(i, j) = (i – 1) * col + j

Next

Next

Set Rng = Sheets(3).Range(Cells(1, 1), Cells(row, col))

Rng.Value = arr

End Sub

上述分享的vba数组操作方法大全图解、分享vba编程基础知识的经验介绍，您知道和解决您袋问题了吗？