把excel内容转换成字符串数组

把excel内容转换成字符串数组

我经常遇到需要转换excel内容为字符串数组的情况，最近看了有关excel宏的东西，觉得挺好玩，拿来试验一下，非常好使，分享给大家。

方法：

把你要转换的数据放在第一列中

在菜单中选择工具 -> 宏 -> 宏... -> 宏名填上toArray() -> 创建，就进入脚本编辑器了

粘贴下面的代码：

Sub toArray()

totalrows = 17 '有多少行就改为多少，

For i = 1 To totalrows

Sheet1.Cells(i, 1) = """" & Sheet1.Cells(i, 1) & ""","

Next

MsgBox "整列复制数组的括号里", vbInformation, "信息"

End Sub

按照你的第一列的行数修改第二行的数字，点击执行就好了。

最后，把你的数据放在字符串的括号里吧！别忘了删除最后一个逗号哦！