gpt4 book ai didi

vba - 计算并突出显示短语中的关键字

转载 作者:行者123 更新时间:2023-12-03 01:59:45 26 4
gpt4 key购买 nike

我有一个包含两列的 Excel 工作表。第一列是关键词,第二列是消息。关键短语可能出现在消息栏中。我需要知道某个关键词在消息栏中出现了多少次。请建议一些好的且简单的查找方法。

关键字是一列,消息是第二列。消息列是1个或多于1个关键短语的组合(串联)。我需要找出每条消息包含多少个关键短语。

最佳答案

您可能能够使用模块子过程收集有效的计数,该子过程执行内存数组中的所有数学运算,并将计数返回到工作表。

       Counts keywords in phrases sample data

我使用了一些标准Lorem Ipsum用于创建上述示例数据的关键字和短语。

点击 Alt+F11,当 VBE 打开时,立即使用下拉菜单插入 ► 模块 (Alt+M)。将以下内容粘贴到标题为 Book1 - Module1 (Code) 的新模块代码表中。

Option Explicit

Sub count_strings_inside_strings()
Dim rw As Long, lr As Long
Dim k As Long, p As Long, vKEYs As Variant, vPHRASEs As Variant, vCOUNTs As Variant

ReDim vKEYs(0)
ReDim vPHRASEs(0)

With Worksheets("Sheet1") '<~~ set to the correct worksheet name\
'populate the vKEYs array
For rw = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
vKEYs(UBound(vKEYs)) = LCase(.Cells(rw, 1).Value2)
ReDim Preserve vKEYs(UBound(vKEYs) + 1)
Next rw
ReDim Preserve vKEYs(UBound(vKEYs) - 1)

'populate the vPHRASEs array
For rw = 2 To .Cells(Rows.Count, 2).End(xlUp).Row
vPHRASEs(UBound(vPHRASEs)) = LCase(.Cells(rw, 2).Value2)
ReDim Preserve vPHRASEs(UBound(vPHRASEs) + 1)
Next rw
ReDim Preserve vPHRASEs(UBound(vPHRASEs) - 1)
ReDim vCOUNTs(0 To UBound(vPHRASEs))

'perform the counts
For p = LBound(vPHRASEs) To UBound(vPHRASEs)
For k = LBound(vKEYs) To UBound(vKEYs)
vCOUNTs(p) = CInt(vCOUNTs(p)) + _
(Len(vPHRASEs(p)) - Len(Replace(vPHRASEs(p), vKEYs(k), vbNullString))) / Len(vKEYs(k))
Next k
Next p

'return the counts to the worksheet
.Cells(2, 3).Resize(UBound(vCOUNTs) + 1, 1) = Application.Transpose(vCOUNTs)

'run the helper procedure to Blue|Bold all of the found keywords within the phrases
Call key_in_phrase_helper(vKEYs, .Range(.Cells(2, 2), .Cells(Rows.Count, 2).End(xlUp)))

End With
End Sub

Sub key_in_phrase_helper(vKYs As Variant, rPHRSs As Range)
Dim p As Long, r As Long, v As Long

With rPHRSs
For r = 1 To rPHRSs.Rows.Count
.Cells(r, 1) = .Cells(r, 1).Value2
For v = LBound(vKYs) To UBound(vKYs)
p = 0
Do While CBool(InStr(p + 1, .Cells(r, 1).Value2, vKYs(v), vbTextCompare))
p = InStr(p + 1, .Cells(r, 1).Value2, vKYs(v), vbTextCompare)
Debug.Print vKYs(v)
With .Cells(r, 1).Characters(Start:=p, Length:=Len(vKYs(v))).Font
.Bold = True
.ColorIndex = 5
End With
Loop
Next v
Next r
End With
End Sub

您可能需要重命名要在第 5th 代码行中处理的工作表。我还包含了一个辅助例程,它用蓝色|粗体字体标识短语中的关键词。如果不需要,请注释掉或删除第一个子过程底部的 Call key_in_phrase_helper(...) 行。

点按 Alt+Q 返回工作表。点击Alt+F8打开对话框并运行子过程。如果您的数据与我整理的示例数据相似,那么您应该会得到类似的结果。

       Counts keys in phrases

<小时/>

1 这些是一些先进的方法,但我认为它们也是解决您的问题的最佳方法。如果您有自己的研究无法充分解释的具体问题,我将尝试在评论部分中解决这些问题。我为创建此解决方案而创建的示例工作簿可根据要求提供。

关于vba - 计算并突出显示短语中的关键字,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/32860792/

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com