如何从单元格中查找值并使用VBA将相应的值放入另一个单元格？

Question

我需要帮助来编写代码来查找来自单元格的值并将相应的值放到另一个单元格

假设单元格A包含如下所述的数据

ControlM：servername：jobname：failure type（Ended not OK，longrunning ...）

我想从单元格内容中检查故障类型，并在另一个单元格中放置某些相关值。

Answer 1

您想要的公式是：

=RIGHT(A1,LEN(A1)-FIND("~",SUBSTITUTE(A1,":","~",LEN(A1)-LEN(SUBSTITUTE(A1,":","")))))

显然，对于您引用的任何单元格都要更改“A1”。

您可以使用VBA将此公式插入要显示的单元格中。

Answer 2

我不确定这是你想要的，但试试这个：

<img src="/assets/images/help.jpg"

Answer 3

以下是您需要粘贴到模块中的代码

Public Function getcontent(r As Range) As String
    str1 = InStr(r.Cells.Value, "failure type")
    If str1 > 0 Then
        str2 = Mid(r.Cells.Value, str1 + 13, Len(r.Cells.Value))
        getcontent = str2
    Else
        getcontent = ""
    End If
End Function

假设单元格A1中的内容“ControlM：servername：jobname：failure type（Ended not OK，longrunning ...）”

单元格A2中的

，= getcontent（A1）

您将单独获取故障类型内容。

希望这符合您的要求。