从单元格中解析出一段文本

Question

我有一个单元格，它根据用户活动不断向单元格添加“部分”，最新的在顶部，（因此可能会发生重复）。 其中一个单元格的示例是：

STATUS: PRELOAD ERROR: : 
NOTE: N/A
BY: SMITH, JOHN
AT: 3/20/2020 2:45:37 PM
 ---------------------------------------- 
STATUS: PRELOAD ERROR: GPS PRELOAD IS MISSING: GPS
NOTE: EMPLOYEE DEAL
BY: SMITH, JOHN
AT: 3/20/2020 2:45:37 PM
 ---------------------------------------- 
STATUS: PRELOAD ERROR: PRELOAD IS MISSING: THEFT
NOTE: EMPLOYEE DEAL
BY: SMITH, JOHN
AT: 3/20/2020 2:45:37 PM
 ---------------------------------------- 
STATUS: PRELOAD ERROR: PRELOAD IS MISSING: APPERANCE
NOTE: EMPLOYEE DEAL
BY: SMITH, JOHN
AT: 3/20/2020 2:45:37 PM
 ---------------------------------------- 
STATUS: CLEANED
NOTE: PRINTED RECAP SHEET
BY: SMITH, JOHN
AT: 3/20/2020 2:45:37 PM
 ---------------------------------------- 
STATUS: HOUSE DEAL ENTRY
NOTE: EMPLOYEE DEAL
BY: SMITH, JOHN
AT: 3/20/2020 2:44:54 PM
 ---------------------------------------- 
STATUS: CLEANED
NOTE: PRINTED RECAP SHEET
BY: SMITH, JOHN
AT: 3/20/2020 2:44:54 PM
 ---------------------------------------- 

我希望能够提取最新的“状态：房屋交易条目”部分，其中包括后面的 3 行。 结果应该是：

STATUS: HOUSE DEAL ENTRY
NOTE: EMPLOYEE DEAL
BY: SMITH, JOHN
AT: 3/20/2020 2:44:54 PM

我该如何使用 VBA 或者使用 Excel 公式可以做到这一点？

提前致谢！

Answer 1

我想到了。

Dim StatusHistory As String
Dim FindHouse() As String

StatusHistory = FILOGData.Range("T1277").Value
FindHouse = Split(StatusHistory, " ---------------------------------------- ")

For i = 0 To UBound(FindHouse)

If InStr(FindHouse(i), "STATUS: HOUSE DEAL ENTRY") > 0 Then
        MsgBox FindHouse(i)
End If

Next i

想法？