把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

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

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