IF单元格包含WORD，然后将WORD提取到另一个单元格 - Excel / VBA

Question

我有一个大型的电子表格，里面有我需要根据资历进行排序的职位。我正在尝试使用IF (certain group of words are in cell) THEN (print that word)函数。我对编程比较陌生，对我想要的代码有一个模糊的概念。任何其他建议都会有用！

在职位名称旁边的栏中，我想提取相关的信息。在这种情况下，我正在探索角色的资历。因此，我希望提取诸如“head”，“director”，“CXO”之类的单词，其中X是E / T / R / P等。我正在考虑将数据导入python，因为我们已经拥有CSV格式的数据但问题是我的CSV中有逗号。我也认为在excel中执行此操作是最佳实践。一旦我提取了信息，我就可以使用一个简单的查找函数来中继，如果它们是C级，经理级别等。

Answer 1

Sub test()
i = Range("A1048576").End(xlUp).Row
ans = InputBox("what needs to be checked", "test")
For K = 2 To i

If InStr(1, Range("A" & K).Value, ans) Then
Range("b" & K).Value = ans
End If
Next

End Sub

将文字放在col A中，运行宏，宏会询问要搜索的内容，如果找到则会放入B col，让我们知道这样的东西是否有效或任何附加的东西