将包含特定单词的单元格复制到另一个工作表上

Question

我有以下数据：

我有两张纸。

1 = RESULTS
2 = DASHBOARD

我正在寻找一个搜索工作表结果列 A：A （整栏）中的单词＆＃34;主机名＆＃34; ，然后复制＆＃34;主机名＆＃34;选择 DASHBOARD 单元格 A1 。

如果可能:(以上图片为例）如果公式可以搜索＆＃34;主机名＆＃34;我将不胜感激。然后在将其复制到单元格 A1 之前，删除单词＆＃34; 主机名：＆＃34; （带结肠）。因此，复制的结果仅为 USER-PC 。

Answer 1

将此公式放在DASHBOARD cell A1：

中

=MID(INDEX(RESULTS!A:A, MATCH("Host name:*", RESULTS!A:A,0)), 2+LEN("Host name:"),1000)

Answer 2

您也可以使用vba执行此操作，但这样会更复杂：

Dim FindString As String
FindString = "Host Name: "
Dim Rng As Range

    With Sheets(1).Range("A:A")
        Set Rng = .Find(What:=FindString, _
                        After:=.Cells(.Cells.Count), _
                        LookIn:=xlValues, _
                        LookAt:=xlPart, _
                        SearchOrder:=xlByRows, _
                        SearchDirection:=xlNext, _
                        MatchCase:=False)
        If Not Rng Is Nothing Then
            Sheets(2).Range("A" & Rng.row).Value = Replace(Rng.Text, "Host Name:", "")
    End With
End If