excel - 在电子表格中提取准确的单词

Question

试图分离单元格中的数据 一个 到单元格 b .

我有大约 38,000 行，在这些行中，我有需要从描述中提取的数据，例如尺寸、颜色、合身度等。

下面是一个例子。

Shirt color: blue size: xl
Shirt BLACK
Shirt - Black

或任何数据组合。

我想在具有 size: xl color: blue 的行上提取并放入 b c d e 列。

与 -Black xl 相同希望将那些提取并放在单独的行中。

Answer 1

首先创建一个简单的 UDF() 从短语中提取颜色词:

Public Function GetColor(inpt As String) As String
   ary = Array("red", "green", "blue", "white", "black", "gray", "grey", "yellow")
   GetColor = ""

   For Each a In ary
      If InStr(1, LCase(inpt), a) > 0 Then
         GetColor = a
         Exit Function
      End If
   Next a
End Function

并将其应用于列:



您自然会修改此示例 UDF() 以包含您的颜色词集。然后，您将创建并使用类似的 UDF() 来提取尺寸、文章类型等。

编辑#1:

用户定义函数 (UDF) 非常易于安装和使用:

ALT-F11 调出 VBE 窗口

ALT-Ⅰ
ALT-M 打开一个新模块

粘贴这些东西并关闭 VBE 窗口

如果您保存工作簿，UDF 将与它一起保存。
如果您使用的是 2003 年以后的 Excel 版本，则必须保存
文件为 .xlsm 而不是 .xlsx

要删除 UDF:

弹出VBE窗口如上

清除代码

关闭 VBE 窗口

要使用 Excel 中的 UDF:

=获取颜色(A1)

要了解有关宏的更多信息，请参阅:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

和

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

有关 UDF 的详细信息，请参阅:

http://www.cpearson.com/excel/WritingFunctionsInVBA.aspx

必须启用宏才能使其正常工作!