请问如何用excel实现批量查找多个字符串出现的次数?

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了请问如何用excel实现批量查找多个字符串出现的次数?相关的知识,希望对你有一定的参考价值。

例如图中如何用公式实现批量查找baidu和google出现的次数,COUNTIF(A2:A5,"*baidu*")这个公式不大好用,查goole的时候还需要再替换。求大神帮忙解答,谢谢。

利用查找函数匹对查找,函数:COUNTIFS

公式形式:

解释:

区域:我们需要查找的范围

条件1:满足查找需要的条件1

条件2:满足查找需要的条件2

如还有条件,以此类推,即可完成

参考技术A D3输入
=COUNTIF(A2:A5,"*"&C3&"*")
下拉
参考技术B 在C2中输入或复制粘贴下列公式
=COUNTIF(A:A,"*"&B2&"*")
下拉填充本回答被提问者采纳

如何用VBA实现WORD批量替换?

根据网友的代码,点击“全部替换”按钮可实现listview两列字符的替换,我的问题是:
希望listview控件支持ctrl+鼠标和shift+鼠标的选择方式,按esc键可以取消全部选择。然后,在按下“替换”按钮时,判断listview中哪些行被选中,然后根据选中个行进行替换。
谢谢。

操作步骤。
  第一,首先将需要批量替换的多个Word文档放在同一文件夹下面。
  第二,新建一空白Word文档,右击空白工具栏,单击“控件工具箱”,就可以看到屏幕上调出的控件工具箱。
  第三,在控件工具箱上单击“命令按钮”,文档中就放置了一个按钮了。
  第四,双击该按钮,进入VB代码编写模式,将以下代码复制进去。
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim myPas As String, myPath As String, i As Integer, myDoc As Document
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "选择目标文件夹"
If .Show = -1 Then
myPath = .SelectedItems(1)
Else
Exit Sub
End If
End With
myPas = InputBox("请输入打开密码:")
With Application.FileSearch
.LookIn = myPath
.FileType = msoFileTypeWordDocuments
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Set myDoc = Documents.Open(FileName:=.FoundFiles(i), Passworddocument:=myPas)
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "大家好"
.Replacement.Text = "你好"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
myDoc.Save
myDoc.Close
Set myDoc = Nothing
Next
End If
End With
Application.ScreenUpdating = True
End Sub
  
第五,保存上面代码,退出VB编辑模式,返回Word文档界面。
  第六,单击选中该按钮,再单击控件工具箱的第一个按钮“退出设计模式”。
  第七,进行测试:点击按钮,选择要放置多个WORD文档所在的文件夹,确定后即可完成!注意如果WORD文档没有加密的话,密码项就不填,直接确认。就会发现该文件夹下面的所有WORD文档中“大家好”已被替换为“你好”了。
参考技术A 123456789101112131415161718192021 For i = 1 To n 'n是listview1的行数 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = ListView1.ListItems(i).SubItems(0) 'Findstr=listview1的第i行第1列对应
单元格
的内容 .Replacement.Text = ListView1.ListItems(i).SubItems(1) 'Findstr=listview1的第i行第2列对应单元格的内容 .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ListView1.selectedItem = i Next MsgBox "处理完毕!", vbInformation + vbOKOnly, "消息" ListView1.selectedItem = 1
参考技术B 传文件过来,我改代码。追问

怎么传给您?如能改代码我加至100分谢谢

参考技术C 1、listview的multselect修改为true,就可以多选,符合你的要求
2、看你的情况之前应该是遍历listview然后替换,那么只需要增加一个判断
dim i as integer
for i=1 to listview1.listitems.count '遍历

if listview1.listitems(i).selected then '是否选中的判断

replacechar '你的替换代码

end if

next i

3、至于取消选择,试了下selected=false,结果无效,不过反正你数据是从txt读取的,重新读取一下吧
Private Sub ListView1_KeyUp(KeyCode As Integer, ByVal Shift As Integer)
'按键事件
if keycode=27 then
listview1.clear
reloadcfg '重新读取配置listview的内容

end if

end sub

加分哦!本回答被提问者和网友采纳

以上是关于请问如何用excel实现批量查找多个字符串出现的次数?的主要内容,如果未能解决你的问题,请参考以下文章

在excel中如何用vba来实现查找特定的字符串?

如何用Python来进行查询和替换一个文本字符串

请问,在Excel中如何用VBA提取数据后保留原格式不变?

excel如何用vba批量提取指定工作表?

Excel 请问如何用Web查询得到网页上的所有数据

如何使用Excel查找大量相似数据?