举例如下，假定该单元格是A1，使用Split把A1的内容（字符串），分割成三个元素的数组Sub abc()S = Range("A1").Textv = Split(S, Chr(10))End Sub
