Tag: 关键字

如何在Excel中的文本中获取关键字？: 我有一个Excel表。表单的一列有文本数据行。我需要找出每行文本中的关键字，然后把关键字放在另一列。有这个http://textalyser.net/网站，可以给我一个特定的文本的关键字，但我不知道如何自动使用它来findExcel中每一行的文本中的关键词。有没有办法自动做到这一点。有没有其他的方式来编写代码来实现最终结果？

VBAmacros，从列中删除关键字的行: 我试图写一个VBA的macros，将通过其中一列（比如说D），并比较那里的名单与我将在第2页上的排除列表。然后是需要删除一个匹配的单词行并向上移动列表，直到整个列表清除与这些词的行。在这里，据我所知，但由于某种原因，它什么也没有做。 Sub Delete_Exeptions() x = 2 Do While ThisWorkbook.Sheets("List1").Cells(x, 4) <> "" i = 11 Do While ThisWorkbook.Sheets("List2").Cells(i, 1) <> "" If ThisWorkbook.Sheets("List1").Cells(x, 4).Value = ThisWorkbook.Sheets("List2").Cells(i, 1).Value Then ThisWorkbook.Sheets("List1").Cells(x, 4).EntireRow.Delete i = i + 1 Loop x = x + 1 Loop 这个人工作得很好，如果有人没有兴趣： Sub Delete_Exeptions() x = 2 Do While ThisWorkbook.Sheets("List1").Cells(x, 4) <> "" […]

反向索引匹配关键字: 我有一个关键字的大电子表格，需要按他们的根本条款进行分组。每个关键字都包含附有地理位置或其他术语的短语中的词根（例如树根删除波士顿）。我在列B中包含所有关键字（〜30,000）的列和列Z中的73个根项的列表。我想比较列B中的关键字和列Z中的根项，并将根项返回到列C 。我尝试了几个数组公式，索引/匹配，vlookup等无济于事。

通过关键字search而不是string: 我正在研究一个项目，在其中search整个工作簿，然后在search页面上显示结果。到目前为止，我已经能够search一个string，并find该string。但是，如果我只是search像“电机”这样的关键字，它将不会显示任何结果，因为工作簿中的任何位置都不是“电机”写入单元格中的位置。他们的任何方式，我可以做到这一点，所以它会searchsearch框中键入的任何东西？这是代码。 search脚本是Sub FindOne（） Private Sub ComboBox1_Change() End Sub Private Sub ComboBox2_Change() UpdateSearchBox End Sub Private Sub CommandButton1_Click() Select Case TextBox1.Value Case "F" TextBox1.Value = "G" Case "E" TextBox1.Value = "F" Case "D" TextBox1.Value = "E" Case "C" TextBox1.Value = "D" Case "B" TextBox1.Value = "C" Case "A" TextBox1.Value = "B" Case […]

VBA /macros添加条件的另一个列: 我需要帮助来编写列M中名为“Person”的附加列或标题，条件是：如果第一列（ Column A ）具有这些关键字"AU", "FJ", "NC", "NZ", "SG12" ，则（ column M)的文本应该是Person1 如果第一列（ Column A ）具有这些关键字"ID", "PH26", "PH24", "TH", "ZA", （ column M ）中的文本应该是Person2 如果第一列（ Column A ）有这些关键字"JP", "MY", "PH", "SG", "VN" ，则（ column M ）中的文本应该是Person3 我希望这个行动成为最后一件事（在所有事情之后）。我试图录制一个macros。过滤关键字，然后手动input，然后向下滑动复制，但似乎应该有另一种方式来粘贴过滤的数据。范围也应该是dynamic的，因为我每次都会有不同数量的数据以下是我的代码到目前为止： Sub person() Selection.AutoFilter ActiveSheet.Range("$A$1:$L$38").AutoFilter Field:=1, Criteria1:=Array("AU", _ "FJ", "NC", "NZ", "SG12"), Operator:=xlFilterValues ActiveWindow.LargeScroll ToRight:=1 […]