www.whkt.net > 求高手指教EXCEL如何用VBA在工作簿中查找包含某字...

求高手指教EXCEL如何用VBA在工作簿中查找包含某字...

代码如下:Sub ErCiShangXianFenLei() Dim i As Long, arr, m As Integer, n As Integer arr = Array("ASP", "SW", "S29", "SP", "BWS", "CWS", "JPP", "QSP") With Sheets("Sheet1") .[a1].Resize(, 8).Copy Sheets("Sheet2

Sub Test2()Dim iSheetDim iRangeFor Each iSheet In Worksheets For Each iRange In iSheet.Range("1:1") ''iRange.Value = 1 If InStr(1, "第", iRange.Value) Then '搜到第一个"第""字后,中断搜索? MsgBox iRange Else End If NextNextEnd Sub

首先必要的前提是:依据搜索要求编写对应的vba程序语言在excel中找到“开发选项”插入编写好的vba程序选定数据宏的“范围”即为需要搜索的工作簿最后指定跳转的“目的地”即为呈现跳转分析数据的单元格

更简单的办法是打开文件夹,按Ctrl+F,用全文查找,搜索“小王”,全选搜索结果后,回车,就可以打开包含这些字的全部文件了

Cells.Find(What:="XX", After:=ActiveCell, LookIn:=xlValues, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , MatchByte:=False, SearchFormat:=False).Activate SearchDirection:=xlNext是查找整个工作簿

activesheet.select添加这句话就行

以下代码能满足你的要求,找到后激活此表并选中该单元格:Sub 全工作簿查找字符串()Dim Sh As Worksheet, Ra As RangeFor Each Sh In Sheets Set Ra = Sh.Cells.Find("需查找的字符串", , , 1) If Not Ra Is Nothing Then Sh.Activate Ra.Select Exit Sub End IfNextMsgBox "没有匹配的单元格!"End Sub

比较无序的数据建议把表格整理下.用vba是下策.不愿整理的话,发原表出来吧

复制粘贴不行吗?或者复制工作表到另一个工作薄中都可以啊!

查找所有应用区域中包含“hello”字符串的 sub test1() dim v as string dim r as range v = "hello" for each r in activesheet.usedrange if instr(1, r, v) 0 then msgbox r.address end if next end sub

网站地图

All rights reserved Powered by www.whkt.net

copyright ©right 2010-2021。
www.whkt.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com