从单元格中获取字符串转换为两个字符串 — 将结果添加到数组

Question

你好，我想知道如何捕获一个字符串并将其分成两个不同的字符串。

单元格 A1 具有：

Cat
Dog 

在同一单元格中使用 Alt+Enter

我正在尝试创建一个比我的示例更大的数组。

将会：

arr(0) = Cat
arr(1) = Dog

---

Sub CatchTwoString()

Range("A1").Select

Dim myString As String
Dim arr() As Variant

myString = Selection.Text

ReDim arr(0)

arr(0) = myString

MsgBox arr(0)


End Sub

Answer 1

使用 Split 并在回车符上拆分：

Sub CatchTwoString()

Dim strarr() As String
strarr = Split(ActiveSheet.Range("A1").Value, Chr(10))

Dim i As Long
For i = LBound(strarr) To UBound(strarr)
    MsgBox strarr(i)
Next i

End Sub