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()し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