獨立字符串（10）

Question

描述：我有一個是在一個循環中創建的字符串：

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

在馬可我不得不在點人權委員會再次分離串（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