Chr的单独字符串（10）

Question

描述：我有一个在循环中创建的String：

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

在marco期间，我必须在Chr（10）点再次分离弦乐

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

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

但这不起作用。

Answer 1

  

在字符串中搜索Chr（10）并在该点分隔字符串。

您可以使用变体数组，并使用SPLIT()和Chr(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