如果单元格包含 WORD，然后将 WORD 提取到另一个单元格中 - Excel/VBA答案

【问题标题】：IF cell contains WORD then extract WORD into another cell - Excel/VBA如果单元格包含 WORD，然后将 WORD 提取到另一个单元格中 - Excel/VBA
【发布时间】：2017-03-15 11:54:48
【问题描述】：

我有一个很大的电子表格，里面有我需要按照资历排序的职位名称。我正在尝试使用 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 级、经理级等。

【问题讨论】：

给我们一个 csv 中的数据示例，以及您已经尝试过的任何代码
欢迎来到 SO。这不是免费的代码编写服务，但它的存在是为了帮助其他人编写他们正在尝试开发的代码或功能。因此，我们希望看到清晰的问题，包括数据示例、尝试的代码、实际输出、期望的输出、解决问题的研究工作等。请阅读帮助页面以获取有关What topics can I ask about here?、How to Ask a Good Question 的信息，和How to create a Minimal, Complete, and Verifiable example
CSV 文件中的逗号是分隔符。分隔符是分隔符 - 例如，当您将数据导入数组时，逗号分隔不同的元素。将此类文件放入 excel 数组的常用方法是 myArrayVariable = split(textVariable, ",")
请向我们展示您到目前为止所做的尝试。
Rajiv，请告诉我们您在列中的预期输出是什么

标签： vba excel

【解决方案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

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

【讨论】：