一 Join函数如何打碎数组
Join函数的浸染和Split函数的浸染相反。Split是将字符按指定字符转为数组，Join是将数组以指定字符分开，连成一个字符串。如：
Sub Mynz_sz4()
Dim arr(1 To 10), i As Integer, txt As String
For i = 1 To 10 '给数组赋值
arr(i) = i
Next i
txt = Join(arr, \"大众,\"大众) '将arr数组的元素连成字符串，用逗号作分隔符
MsgBox txt
End Sub
大家可以想一想上面的代码的运行结果是什么呢？
代码窗口：
运行窗口：
Join的第二参数，即分隔符可以不指定，在不指定时，默认为以空格作分隔符。
二 数组的实战运用：数组数据的写入和取出
如将存储了1到60000的数的数组写入A列，则代码:
Sub Mynz_sz5()
'创建数组，并赋值
Dim arr(1 To 60000), i As Long
For i = 1 To 60000
arr(i) = i
Next i
'将数组的值写入单元格（C列）
[C1:C65536].Clear '打消原有数据
Dim irow As Long
Dim startime As Double
startime = Timer
For irow = 1 To 60000
Cells(irow, 3) = arr(irow)
Next irow
MsgBox \公众数组写入共用了\"大众 & Timer - startime & \公众秒！
\"大众
End Sub
代码窗口：
运行窗口：
以上程序是利用循环，将数组里的元素逐个写入单元格，为了比拟不同的输入办法的效率，加入了打算韶光的代码，有了前面的根本，相信读上面的代码对大家来说，不会太困难。
看过我之前文章的朋友一定记得VBA代码的优化，可以试试关闭屏幕刷新及加入Cells(irow, 3).select 后的韶光比较。其实在谈到代码的优化时我总在强调，不要为了优化而优化，要平衡视觉和韶光的关系。
今日内容回向：
1 数组函数中JOIN是什么意义？
2 如何写入数组，数组的值如何调出?
