vba - Chr(10) 处的单独字符串

Question

描述：我有一个在循环中创建的字符串：

PString = PString & Chr(10) & ActiveCell.Offset(i - 2, 0).Value

在马可期间，我必须在 Chr(10) 点再次分开琴弦

问题： 我不知道如何在字符串中搜索 Chr(10) 并在该点分隔字符串。我试过了

For each PChar in PString
If PChar = Chr(10) then
...
next

但这不起作用。

Answer 1

在字符串中搜索 Chr(10) 并在该点分隔字符串。

您可以使用变体数组并使用SPLIT()withChr(10)作为分隔符。

Dim MyAr
Dim PString As String, i As Long

PString = PString & Chr(10) & ActiveCell.Offset(i - 2, 0).Value
PString = PString & Chr(10) & ActiveCell.Offset(i - 3, 0).Value

MyAr = Split(PString, Chr(10))

For i = LBound(MyAr) To UBound(MyAr)
    Debug.Print MyAr(i)
Next