VBA信息获取与处理第四节:获取唯一非重复值返回数组的代码

VBA语言専攻 2024-05-11 18:07:31

《VBA信息获取与处理》教程(版权10178984)是我推出第六套教程,目前已经是第一版修订了。这套教程定位于最高级,是学完初级,中级后的教程。这部教程给大家讲解的内容有:跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作,剪贴板应用、Split函数扩展、工作表信息与其他应用交互,FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。程序文件通过32位和64位两种OFFICE系统测试。是非常抽象的,更具研究的价值。

教程共两册,二十个专题。今日分享内容是:VBA信息获取与处理第二个专题第四节:获取唯一非重复值返回数组的代码

【分享成果,随喜正能量】人这一生,好不好都得自己走,累不累都得自己承受。每个人都有难言之苦,每个人都有无声的泪,岁月可曾放过谁?再风光的人,背后都有寒凉凄楚,再幸福的人,内心也有无奈难处,没人扶的时候,自己要站直,没人帮的时候,自己要努力。苦尽,甘自来;春暖,花会开。 。

第四节 获取唯一非重复值的返回数组2 获取唯一非重复值返回数组的代码

最后把这节完整的代码贴出如下:

Public Function MyRandomA(Mim As Long, Mam As Long, _

NS As Long, Optional ArrayBase As Long = 1) As Variant

Dim AA() As Long

Dim BB() As Long

If Mim > Mam Then

MyRandomA = Null

Exit Function

End If

If NS > (Mam - Mim + 1) Then

MyRandomA = Null

Exit Function

End If

If NS <= 0 Then

MyRandomA = Null

Exit Function

End If

Randomize

ReDim AA(Mim To Mam)

ReDim BB(ArrayBase To (ArrayBase + NS - 1))

For i = Mim To Mam

AA(i) = i

Next

T = UBound(AA)

For j = LBound(BB) To UBound(BB)

i = Int((T - Mim + 1) * Rnd + Mim)

BB(j) = AA(i)

'对源数组数据进行处理,将第i个值放到T的位置

Temp = AA(i)

AA(i) = AA(T)

AA(T) = Temp

T = T - 1

Next

MyRandomA = BB

End Function

Sub MYNZC()

Sheets("sheet3").Select

UU = MyRandomA(Range("e2"), Range("e3"), Range("e4"))

Range("a:a").ClearContents

Range("A1").Resize(UBound(UU), 1) = Application.Transpose(UU)

End Sub

本节知识点回向:如何实现返回的随机值具有唯一性?思路是怎样的?代码中T的值是变化的,这种变化保证了什么?

本节内容详细代码“参考002工作表.XLSM”

我20多年的VBA实践经验,全部浓缩在下面的各个教程中,教程学习顺序:

0 阅读:2