单个单元格中的多个单词，如何分隔而不用分隔
由于错误的在线调查设置，多选的答案，select所有适用的问题都集中在一个单元格中。 例如：
所有可选的选项如下：
A12
B1234
C3
D845
E00091
F
响应的单元格如下所示：
单元格A1： A12C3E00091
单元格A2： B1234F
单元格A3： C3D845F
而且有100个这样的细胞随机响应。
我需要以某种方式自动化数据提取，然后计算每个选项。
我尝试使用左，右等，这不是真的有帮助。
我确实使用了查找，然后尝试提取数据，但我不确定从单元格内的特定起始点起作用的函数。
如果有人可以请这个帮忙。
谢谢。
- 将数据复制到范围A2：A101
- 进入B1：G1，inputA，B，C，D，E，F
- 进入B2，input= LEN（$ A2）-LEN（SUBSTITUTE（$ A2，B $ 1，“”））
- 复制B2到B2：G101
结果： 
Kartike，
如果我理解你是正确的，你想知道哪些选项是represtented在一个单元格的回应。 我会说，你是正确的使用查找。 要testing选项1是否在单元格A1中运行：
=ISNUMBER(FIND("A12"; A1))
如果包含string“A12”则返回TRUE，否则返回FALSE。 使用A2中的一列中的答案string和B1中的一行中的选项string，可以通过填充行和列来获得完整的选项表
=ISNUMBER(FIND(B$1;$A2))
从B2单元开始。
问候，垫子
将其复制到vba模块中，并使用Countwords（RangeString，SearchTerm）作为单元格函数：
Public Function CountWords(r As String, Search As String) As Integer Dim a As Variant, str As String, Count As Integer For Each a In Range(r).Value str = str & a Next a Count = (Len(str) - Len(Replace(str, Search, ""))) / Len(Search) CountWords = Count End Function
So = CountWords（“A1：A10”;“A12”）计算范围A1：A10中的A12。