excel - 在 Excel VBA 中获取无效的量词

Question

使用下面的代码，我试图提取数据并放入另一个 Excel 表中。此过程仅有助于其中一部分，在特定位置查找联系信息。联系信息所在的公司始终以“联系人”结尾，例如“此公司名称联系人”，我正在尝试从中删除最后一个单词，以便可以将其用作另一张表中的公司名称。我将 Comp 设置为公共字符串，但我不断收到“无效的量词”错误。

我一直试图弄清楚我做错了什么，但似乎无法弄清楚。

任何帮助，将不胜感激！

Public Comp As String
Public Company As Range    
Public Sub FindIncorrectPlacementContacts()

这需要将注意力引导回所需的工作簿

    Workbooks(OpenedFile).Activate

找到我正在寻找的单元格

    Range("A1:G50").Find(What:="Contacts", MatchCase:=True).Select

将单元格的值分配给标记为 Comp 的公共字符串

    Comp = Application.Selection.Value

从字符串中删除单词“Contacts”

    Comp.Replace "Contacts*", " "

为 Range 分配字符串的值，以便可以将其移动到另一个工作簿

    Set Company = Comp

End Sub

标签： excelvba