Vba 将包含特定单词的单元格复制到另一张图纸上的单元格

我有以下数据：

我有两张床单

1 = RESULTS
2 = DASHBOARD

我正在寻找一个公式，用于搜索工作表结果列a:a（整列）中的单词“主机名”，然后将“主机名”复制到工作表仪表板单元格A1

---

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

将此公式放入

仪表板单元格A1

：

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

---

也可以使用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

---

大家好，欢迎来到StackOverflow。请花些时间阅读帮助页面，特别是命名和的部分。更重要的是，请阅读。您可能还想了解。并包括你正在试图通过的代码…以便人们能够提供帮助。我更改了我的代码，它要求输入，这就是为什么它仍然存在的原因。我会改变它。啊哈，现在更有意义了：）谢谢Svekke为您的VBA脚本和您的输入！