Question

有点迷失在这里做什么。我在A2中有一个单元格，格式如下所示。我需要在Query Summery之后提取所有文本 - 并在============ beffore Query结束。所有应该通过的是区域15中的新事件测试。我在A列中有多个这样的条目，但格式相同。不知道如何提取这个。 VBA会是最好的选择吗？

============
Main Data - Information on this is the main data
============
Query Summery - New event testing in area 15
============
Query - New mine created for testing in minecraft and brought forwards 15 times today
============

Answer 1

我建议您在VBA中使用自定义功能，如果您愿意继续使用该路线。下面的代码创建了一个带有三个参数的用户定义函数：输入字符串，分隔符（或分隔符）以及要返回的选项。

假设字符串在单元格A1中，公式将如下所示：

=CustomSplit(A1,"============", "Query Summery -")

要插入标准模块的代码如下所示：

Function CustomSplit(sInput As String, sDelimiter As String, sFind As String)
    Dim sArray() As String

    sArray() = Split(sInput, sDelimiter)

    For i = LBound(sArray) To UBound(sArray)
        If sArray(i) Like "*" & sFind & "*" Then
            CustomSplit = Application.Trim(Replace(Replace(sArray(i), sFind, ""), Chr(10), ""))
            Exit Function
        End If
    Next i
    CustomSplit = CVErr(xlErrNull)
End Function

Charecter和String后提取文本

1 个答案: