大家好，我们今日继续讲解VBA代码解决方案的第60讲内容：如何将文本内容转化为数组。这个问题的提出是因为我们在处理一些文字时往往在WORD中，要拷贝到EXCEL中来填充一些资料，多是人名，设备名等，这些往往要求以独占一个 单元格的信息，这时该如何把这些人名，设备名放到EXCEL中呢？这就是讲文本转化为数组再填充的问题。
一：在处理字符串时可以使用Split 函数将字符串按指定的分隔符分开并以数组返回，
Split 函数返回一个下标从零开始的一维数组，包含指定数目的子字符串，语法如下：
Split(expression[, delimiter[, limit[, compare]]])
参数expression是必需的，包含子字符串和分隔符的字符串表达式。
参数delimiter是必需的，用来标识子字符串边界的字符串字符。如果忽略，则使用空格字符(" ")作为分隔符。
 二：我们在完成数组的转换之后，往往要求横向或者纵向的填充，这时工作表Transpose函数返回转置单元格区域，即将一行单元格区域转置成一列单元格区域，反之亦然，语法如下：
TRANSPOSE(array)
参数array为需要进行转置的数组或工作表中的单元格区域。
有了上面两个知识点我们看我们今日的学习内容，我们有一个单元格的文本内容，要把这些内容首先转化为数组，然后再填充到纵向的单元格中。
 代码如下：
Sub MySplitarr()
 Dim Arr As Variant
 Arr = Split(Sheets("kk").Cells(1, 1), " ")
 Sheets("kk").Cells(3, 1).Resize(UBound(Arr) + 1, 1) = Application.Transpose(Arr)
 End Sub
代码解析：
MySplitarr过程使用Split 函数将工作表Sheets("kk")中A1单元格的姓名分别写入到工作表Sheets("kk")中的A列单元格。
第4行代码，首先使用UBound函数取得返回数组的最大下标后调整单元格区域，因为数组下标的缺省下界默认为0，所以在使用Resize属性调整单元格区域时参数RowSize需要在返回数组的最大下标上加一。
然后使用工作表Transpose函数将返回数组转置后写入到工作表调整后的单元格区域中。
代码截图：
运行前的窗口：在A1单元格有一组文本：
运行后：
运行后在A3单元格向下处理了上述的文本。
今日内容回向：
1 Split 函数的作用是什么？他是VBA函数吗？
2TRANSPOSE(array) 函数的作用是什么？
欢迎大家到我的自媒体平台沟通交流：个人微信号“NZ9668”、头条号“VBA专家”、百家号“VBA与GO语言”、微信公众号“NZ_9668”、社群“VBA学习交流群”。
这一系列文章是根据我多年的工作经验编写的，也是一直在利用的工具，非常方便好用。现在分享出来，希望能对同样在职场打拼的朋友有些许的帮助，使你的工作更加高效、流畅。朋友们有问题请随时提出来，我们一起探讨学习。对数据分析有需要的公司、组织或个人可以直接联系我，及时为你提供专业的定制技术支持。
工作不是一切。工作是每个人安身立命、成长发展的基础。但你要知道工作是永远也做不完的，时间会抹去很多问题。多关注自己、家人和朋友，这些才是我们生活中更为重要的东西。

分享一个VBA常用函数示例。
目 录：​
函数 (Visual Basic for Applications)
1. Abs 函数(绝对值函数)
2. Array 数组函数
3. Asc 字符码函数
4. Atn 余切函数
5. CallByName 函数(执行对象的方法，或者设置或返回对象的属性
6. Choose选择函数
7. Chr 函数
8. 命令函数
9. 数据类型转换函数
10. Cos 函数
11. CreateObject 函数
12. CurDir 函数
13. CVErr 函数
14. Date 函数
15. DateAdd 函数
16. DateDiff 函数
17. DatePart 函数
18. DateSerial 函数
19. DateValue 函数
20. Day 函数
21. DDB 函数 双倍余额递减法折旧函数 
22. 派生三角算术函数
23. Dir 函数
24. DoEvents 函数
25. Environ 函数
26. EOF 函数
27. Error错误函数
28. Exp 自然对数幂函数
29. FileAttr 函数
30. FileDateTime 函数
31. FileLen 函数 文件字节大小
32. Filter数组筛选器函数
33. Format 格式函数 
34. FormatCurrency 函数
35. FormatDateTime 函数
36. FormatNumber 函数
37. FormatPercent 函数
38. FreeFile 函数
39. FV 函数 年金终值函数
40. GetAllSettings 注册表属性函数
41. GetAttr 函数 返回文件属性
42. GetObject 函数
43. GetSetting 函数 注册表函数
44. Hex 函数 10进制转16进制 
45. Hour 函数
46. IIf 函数
47. IMEStatus 函数 输入法函数
48. 输入函数
49. InputBox 函数
50. InStr 函数 左边开始查找
51. InStrRev 函数 尾部开始查找
52. INT FIX输入、修复函数
53. IPmt 财务函数
54. IRR 函数 内涵报酬率函数
55. IsArray 函数
56. IsDate 函数
57. IsEmpty 函数
58. IsError 函数
59. IsMissing 函数
60. IsNull 函数
61. IsNumeric 函数
62. IsObject 函数
63. Join连接函数
64. LBound 函数
65. LCase 函数
66. Left函数
67. Len 函数 
68. Loc 函数 
69. LOF 函数 打开文件的字节大小
70. Log对数函数
71. LTrim、RTrim 和 Trim 函数 
72. MacID 函数
73. MacScript 函数
74. 算术函数
75. Mid函数 
76. Minute函数 
77. MIRR 函数 财务函数
78. Month 函数
79. MonthName 函数
80. MsgBox 函数
81. Now 函数 
82. NPer 财务函数 
83. NPV 财务函数 
84. Oct 函数 10进制转8进制
85. 分区函数 
86. Pmt 财务函数 
87. PPmt 函数 
88. PV 财务函数 
89. QBColor 颜色值函数 
90. Rate 财务函数 
91. Replace 函数 
92. RGB 函数 
93. Rigjt函数 
94. Rnd 函数 
95. Round 函数 
96. Second函数 
97. Seek 函数 
98. Sgn 函数 
99. Shell 函数 
100. Sin 函数 
101. SLN 直线折旧法函数 
102. Space函数 
103. Spc 函数 
104. Split函数 
105. Sqr 函数 
106. Str 函数数值转字符串 
107. StrComp 字符串比较函数 
108. StrConv 大小写转换函数 
109. String函数 
110. StrReverse 函数 
111. 切换函数 
112. SYD 年数总和法折旧函数 
113. 选项卡函数 
114. Tan 函数 
115. Timer 函数 
116. TimeSerial 函数 
117. TimeValue 函数 
118. 类型转换函数 
119. TypeName 函数 
120. UBound 函数 
121. UCase 函数 
122. Val 函数 
123. VarType 函数 
124. Weekday日函数 
125. WeekdayName 函数 
126. Year 函数 
示例下载：
 在“了解更多”里下载。

上一篇博客讲解了SPLIT函数的用法，大家可以移步这里。

VBA SPLIT函数详解

SPLIT函数实现了字符串拆分，相应的逆运算可以使用JOIN函数，其语法格式如下。
Join(sourcearray[, delimiter])





参数
含义




sourcearray
必选参数，包含被连接子字符串的一维数组


delimiter
可选参数，在返回字符串中用于分隔子字符串的字符


参数delimiter与SPLIT函数中该参数的用法相同，省略时使用空格做为分隔符。
如下的示例代码实现了将字符串数组arrString组合为一个字符串。
Sub JoinDemo1()
    Dim arrString
    Dim strString As String
    arrString = Array("Good", "good", "study,", "day", "day", "up")
    strString = VBA.Join(arrString)
    Debug.Print strString
End Sub

输出结果如下。

Good good study, day day up

有时需要在字符串的两端都使用分隔符，即

|Good|good|study|day|day|up|

示例代码如下：
Sub JoinDemo3()
    Dim arrString
    Dim strString As String
    arrString = Array("Good", "good", "study,", "day", "day", "up")
    strString = "|" & VBA.Join(arrString, "|") & "|"
    Debug.Print strString
End Sub

其实代码可以进行简化，JoinDemo3过程中第5行代码不需要那么复杂。代码可以简化如下。
Sub JoinDemo4()
    Dim arrString
    Dim strString As String
    arrString = Array("", "Good", "good", "study,", "day", "day", "up", "")
    strString = VBA.Join(arrString, "|")
    Debug.Print strString
End Sub

其中的技巧在于，第4行代码中，在数组中第一个和最后一个元素增加了空字符，第5行代码组合字符串时，就可以实现字符串两段添加分隔符的效果。

	

Access专家课堂两周年庆，视频课程、培训班、企业版等5~8折优惠，->点此了解详情
分享一个VBA常用函数示例。目  录：
函数 (Visual Basic for Applications)
1. Abs 函数(绝对值函数)
2. Array 数组函数
3. Asc 字符码函数
4. Atn 余切函数
5. CallByName 函数(执行对象的方法，或者设置或返回对象的属性
6. Choose选择函数
7. Chr 函数
8. 命令函数
9. 数据类型转换函数
10. Cos 函数
11. CreateObject 函数
12. CurDir 函数
13. CVErr 函数
14. Date 函数
15. DateAdd 函数
16. DateDiff 函数
17. DatePart 函数
18. DateSerial 函数
19. DateValue 函数
20. Day 函数
21. DDB 函数 双倍余额递减法折旧函数 
22. 派生三角算术函数
23. Dir 函数
24. DoEvents 函数
25. Environ 函数
26. EOF 函数
27. Error错误函数
28. Exp 自然对数幂函数
29. FileAttr 函数
30. FileDateTime 函数
31. FileLen 函数 文件字节大小
32. Filter数组筛选器函数
33. Format 格式函数 
34. FormatCurrency 函数
35. FormatDateTime 函数
36. FormatNumber 函数
37. FormatPercent 函数
38. FreeFile 函数
39. FV 函数 年金终值函数
40. GetAllSettings 注册表属性函数
41. GetAttr 函数 返回文件属性
42. GetObject 函数
43. GetSetting 函数  注册表函数
44. Hex 函数 10进制转16进制 
45. Hour 函数
46. IIf 函数
47. IMEStatus 函数 输入法函数
48. 输入函数
49. InputBox 函数
50. InStr 函数 左边开始查找
51. InStrRev 函数 尾部开始查找
52. INT FIX输入、修复函数
53. IPmt 财务函数
54. IRR 函数 内涵报酬率函数
55. IsArray 函数
56. IsDate 函数
57. IsEmpty 函数
58. IsError 函数
59. IsMissing 函数
60. IsNull 函数
61. IsNumeric 函数
62. IsObject 函数
63. Join连接函数
64. LBound 函数
65. LCase 函数
66. Left函数
67. Len 函数 
68. Loc 函数 
69. LOF 函数 打开文件的字节大小
70. Log对数函数
71. LTrim、RTrim 和 Trim 函数 
72. MacID 函数
73. MacScript 函数
74. 算术函数
75. Mid函数 
76. Minute函数 
77. MIRR 函数 财务函数
78. Month 函数
79. MonthName 函数
80. MsgBox 函数
81. Now 函数 
82. NPer 财务函数 
83. NPV 财务函数 
84. Oct 函数 10进制转8进制
85. 分区函数 
86. Pmt 财务函数 
87. PPmt 函数 
88. PV 财务函数 
89. QBColor 颜色值函数 
90. Rate 财务函数 
91. Replace 函数 
92. RGB 函数 
93. Rigjt函数 
94. Rnd 函数 
95. Round 函数 
96. Second函数 
97. Seek 函数 
98. Sgn 函数 
99. Shell 函数 
100. Sin 函数 
101. SLN 直线折旧法函数 
102. Space函数 
103. Spc 函数 
104. Split函数 
105. Sqr 函数 
106. Str 函数数值转字符串 
107. StrComp 字符串比较函数 
108. StrConv 大小写转换函数 
109. String函数 
110. StrReverse 函数 
111. 切换函数 
112. SYD 年数总和法折旧函数 
113. 选项卡函数 
114. Tan 函数 
115. Timer 函数 
116. TimeSerial 函数 
117. TimeValue 函数 
118. 类型转换函数 
119. TypeName 函数 
120. UBound 函数 
121. UCase 函数 
122. Val 函数 
123. VarType 函数 
124. Weekday日函数 
125. WeekdayName 函数 
126. Year 函数 
示例下载：
    在屏幕左下角的
End推荐阅读Access训练营 从0基础开始，循序渐进，系统化的训练营课程，整合作业、课表、社群，为学员提供答疑，获得更佳的学习效果。【详情>>】 Access专家课堂 是Access数据库爱好者提升技能的专业课堂，由微软最有价值专家张志创办，课堂有众多Access课程，可通过电脑或微信学习。【详情>>】 Access软件作品 十二位Access学员对自已开发的软件进行了介绍并分享开发心得，一起来了解Access开发的软件。【详情>>】 从Excel到Access数据库 为广大Excel用户了解、学习Access数据库开设的一个实用课程，侧重于数据统计分析。【详情>>】 Access每天3分钟 视频课程共50集，Access的基础知识并结合示例详细讲解，每集视频只有短短几分钟，学员可以利用碎片化的时间，每天进步一点点【详情>>】 张志，Access数据库培训讲师，『Access软件网』创始人，服务过的知名企业有北京奔驰、立达(中国)纺织仪器、宜家(中国)投资等。 2003~2013年连续10年获微软最有价值专家。【详情>>】