《VBA信息获取与处理》教程(版权10178984)是我推出第六套教程，目前已经是第一版修订了。这套教程定位于最高级，是学完初级，中级后的教程。这部教程给大家讲解的内容有：跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作，剪贴板应用、Split函数扩展、工作表信息与其他应用交互，FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。程序文件通过32位和64位两种OFFICE系统测试。是非常抽象的，更具研究的价值。
【分享成果，随喜正能量】人这一生，好不好都得自己走，累不累都得自己承受。每个人都有难言之苦，每个人都有无声的泪，岁月可曾放过谁？再风光的人，背后都有寒凉凄楚，再幸福的人，内心也有无奈难处，没人扶的时候，自己要站直，没人帮的时候，自己要努力。苦尽，甘自来；春暖，花会开。 。
第四节 获取唯一非重复值的返回数组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实践经验，全部浓缩在下面的各个教程中，教程学习顺序：
