友情提示：本文共有 1516 个字，阅读大概需要 4 分钟。
分享成果，随喜真能量。大家好，今日内容仍是和大家分享VBA编程中常用的简单“积木”过程代码，这些内容大多是取至我编写的“VBA代码解决方案”教程中内容。NO.176-NO.177容是：
NO. 180：在VBA中split和join对数组操作
NO. 181：在VBA中查找数组的差集
NO. 182：在VBA中使用FileCopy语句复制文件
VBA过程代码180：在VBA中split和join对数组操作
Sub mynz()
Dim arr, myst As String
myst = "A-REW-E-RWC-2-RWC"
arr = Split(myst, "-")
MsgBox arr(0)
MsgBox Join(arr, ",")
End Sub
代码的解析说明：mynz过程使用split和join函数，显示数组的第一个数，再用","把数组的每个值连接成一个字符串。
VBA过程代码181：在VBA中查找数组的差集
Sub mynz()
Dim varArr1 As Variant
Dim varArr2 As Variant
Dim i As Integer
varArr2 = Array(1021, 1023, 1025)
varArr1 = Array(1021, 1022, 1023, 1024, 1025, 1026, 1027, 1028）
For i = 0 To UBound(varArr2)
varArr1 = VBA.Filter(varArr1, varArr2(i), False)
Next i
MsgBox Join(varArr1)
End Sub
代码的解析说明：mynz过程实现varArr2，varArr1两个数组的差值。使用filter函数在此是模糊查找。
VBA过程代码182：在VBA中使用FileCopy语句复制文件。
Sub mynz()
Dim SourceFile As String
Dim DestinationFile As String
SourceFile = ThisWorkbook.Path & "VBA代码解决方案（1-48）.docx"
DestinationFile = ThisWorkbook.Path & "ABCabc.docx"
FileCopy SourceFile, DestinationFile
End Sub
代码的解析说明：mynz过程使用FileCopy语句将示例文件所在文件夹中的"VBA代码解决方案（1-48）.docx"文件复制到示例文件目录下的“ABC”文件夹中并重新命名为“abc.docx”。代码使用FileCopy语句复制文件。
VBA是实现自己小型办公自动化的有效手段，我根据自己20多年的VBA实际利用经验，现推出了四部VBA教程，这些是我多年编程经验的记录，也是我“积木编程”思想的体现。每一讲都是较大块的“积木”，可以独立的完成某些或者某类的过程，有需要的朋友可以联络（WeChat:NZ9668）分享。利用这些可以提高自己的编程效率。其一：“VBA代码解决方案”PDF教程，是VBA中各个知识点的讲解，覆盖了绝大多数的知识点，是初学及中级以下人员必备；其二“VBA数据库解决方案”PDF教程，数据库是数据处理的利器，对于中级人员应该掌握这个内容了。其三“VBA数组与字典解决方案”PDF教程，讲解VBA的精华----字典，是我们打开思路，提高代码水平的必备。其四“VBA代码解决方案”视频教程。目前正在录制，“每天20分钟，半年精进VBA”，越早参与，回馈越多。现在录制到第三册的103讲,以上各教程的代码都是经过实测，可以拿来即用。
本文如果对你有帮助，请点赞收藏《VBA数组函数 差值的取得以及利用FileCopy语句复制文件》，同时在此感谢原作者。
