excel vba split string into array by newline

在Excel VBA中，你可以使用Split函数将一个字符串按照指定的分隔符拆分成一个数组。对于按照换行符分隔的字符串，你可以使用vbCrLf常量作为分隔符。

以下是一个例子，演示如何将一个按照换行符分隔的字符串分割成一个数组：

Sub SplitString()
    Dim str As String
    Dim arr() As String
    ' 假设这个字符串是从某个单元格中读取的
    str = Range("A1").Value
    ' 使用vbCrLf作为分隔符，将字符串拆分成一个数组
    arr = Split(str, vbCrLf)
    ' 将数组中的元素逐个输出到控制台
    For i = LBound(arr) To UBound(arr)
        Debug.Print arr(i)
    Next i
End Sub
在这个例子中，我们首先将从单元格A1中读取的字符串存储在一个名为str的变量中。然后，我们使用Split函数将字符串按照vbCrLf分隔符拆分成一个数组，存储在一个名为arr的变量中。最后，我们使用For循环逐个输出数组中的元素到控制台中。
注意，这里的Split函数返回的是一个一维数组，数组的下标从0开始。因此，我们使用LBound和UBound函数来获取数组的下标范围。
希望这个例子对你有帮助！