精华内容
下载资源
问答
  • 所以要查找“永辉”,用 find 函数,所以正常就是=FIND($E$1,A1) ,然后往下拖,如果有找到,就返回在字符串中出现在第几个字符;没找到,返回错误#value!例如 =find(“新华路永辉店", "永辉") ...

    公式中,如果有数组,一定按按ctrl+alt+enter

    如图,A列有“新华路永辉店”,“五一永辉店”,我如果想统计永辉各个店的零售额,显然不可能,要把这些店统一成“永辉”才行。

    所以要查找“永辉”,用 find 函数,所以正常就是 =FIND($E$1,A1) ,

    然后往下拖,如果有找到,就返回在字符串中出现在第几个字符;没找到,返回错误#value!

    例如 =find(“新华路永辉店", "永辉") 返回4,从第4个字符开始,出现”永辉“二字

    现在这个问题的难处在于,有A1单元格的内容,有可能是永辉、百汇、沃尔玛;所以用到数组!

    =find($e$1:$e$3,a1) 按ctrl+alt+enter 在a1单元格中,分三次查找,分别查找e1 e2 e3 , 返回 4 #value! #value! 因为a1单元格中找到了“永辉”,处在第4个字符,所以返回4; a1单元格没找到

    百汇,沃尔玛,所以返回#value! #value!

    接下来,我们把 4,#value!,#value! 转化为 1,0,0 (目的在于对应

    永辉,百汇,沃尔玛,1,0,0 对应三个超市,表示是永辉,不是百汇,不是沃尔玛)

    =IF(ISERROR(FIND($E$1:$E$3,A2)),0,1)

    然后,知道1出现在数组中是第几行,用 match比对 ,math一定要加参数0表示精确匹配

    =MATCH(1,IF(ISERROR(FIND($E$1:$E$3,A1)),0,1),0)

    新华路永辉店, 1

    现在我们得到 新华路永辉店,出现在“永辉、百汇、沃尔玛”中的第1个,

    最后,用offset函数去把中文名称取回来就行,或者给“永辉’百汇、沃尔玛”编号,用vlookup也行。

    =OFFSET($E$1,B2-1,)

    , 减去1,偏移校正

    展开全文
  • 可能重复:如何在MS Access VBA数组中搜索字符串我目前正在处理Excel宏,但找不到解决方法Mainfram我写了以下内容,它给我消息“ Invalid Qualifier”,并在If之后立即突出显示MainframDim Mainfram(4) As ...

    可能重复:

    如何在MS Access VBA数组中搜索字符串

    我目前正在处理Excel宏,但找不到解决方法Mainfram

    我写了以下内容,它给我消息“ Invalid Qualifier”,并在If之后立即突出显示Mainfram

    Dim Mainfram(4) As String

    Mainfram(0) = "apple"

    Mainfram(1) = "pear"

    Mainfram(2) = "orange"

    Mainfram(3) = "fruit"

    For Each cel In Selection

    If Mainfram.Contains(cel.Text) Then

    Row(cel.Row).Style = "Accent1"

    End If

    Next cel

    选择是一列

    有人帮忙吗?

    嗨,JP我尝试了您的建议,并说需要对象。 并突出了  如果IsInArray(cell.Text,Mainfram)然后这是我的完整代码

    Sub changeRowColor()

    Columns("B:B").Select

    Dim cel As Excel.Range

    Dim Mainfram(4) As String

    Mainfram(0) = "apple"

    Mainfram(1) = "pear"

    Mainfram(2) = "orange"

    Mainfram(3) = "Banana"

    For Each cel In Selection

    If IsInArray(cell.Value, Mainfram) Then

    Rows(cel.Row).Style = "Accent1"

    End If

    Next cel

    End Sub

    Function IsInArray(stringToBeFound As String, arr As Variant) As Boolean

    IsInArray = (UBound(Filter(arr, stringToBeFound)) > -1)

    End Function

    没关系,我发现了这个愚蠢的错误...反正谢谢你

    展开全文
  • CAD-vba字符串查找

    2018-05-16 08:21:49
    CAD-vba字符串查找函数,查找关键字。AcadText单行文字,AcadMText多行文字 Dim ent As AcadEntity For Each ent In ThisDrawing.ModelSpace
  • 怎样用VBA查找选定区域内包含某字符串的单元格,并用设定的底色显示
  • 转自:http://www.pinlue.com/article/2018/09/1514/087188585901.html
    展开全文
  • nT = UBound(Split(cTextStrs, "xx")) cTextStrs 要查找字符串 xx 要查找的字符 nT 重复的次数

    nT = UBound(Split(cTextStrs, "xx"))
    cTextStrs 要查找的字符串
    xx 要查找的字符
    nT 重复的次数

    展开全文
  • VBA,字符串处理大全

    万次阅读 2008-02-04 12:23:00
    1 VBA中的字符串2 VBA中处理字符串的函数 2.1 比较字符串 2.2 转换字符串 2.3 创建字符串 2.4 获取字符串的长度 2.5 格式化字符串 2.6 查找字符串 2.7 提取字符/字符串 2.8 删除空格 2.9 返回字符代码 ...
  • VBA统计字符串出现的次数

    千次阅读 2020-04-19 21:27:52
    今天我要给大家分享一个示例:统计出某个字符串在某表某字段中出现的次数。 大家先来看一下结果效果图: 先来讲一下原理,其实就是循环数据库中的所有表,然后找模糊查找,找到了就记录表名、表中的字段、...
  • VBA 字符串处理

    2013-09-09 17:44:00
    1 VBA中的字符串 2 VBA中处理字符串的函数 2.1 比较字符串 2.2 转换字符串 2.3 创建字符串 ...查找字符串 2.7 提取字符/字符串 2.8 删除空格 2.9 返回字符代码 ...
  • VBA字符串处理

    千次阅读 2013-11-15 16:38:21
    目录: 1 VBA中的字符串 2 VBA中处理字符串的函数  2.1 比较字符串 ...查找字符串  2.7 提取字符/字符串  2.8 删除空格  2.9 返回字符代码  2.10 返回数值代表的相应字符  2.11 使用字节的函数
  • VBA 字符串函数

    千次阅读 2019-05-11 16:02:31
    len(s) 求长度 trim(s) 去掉两端空格 replace(s,a,b) 替换s中子串a,用b替代 left(s,a) 从左边取若干字符 right(s,a) 从右边取若干字符 ...instr(a,s1,s2) 从a位置在s1中查找字符串s2,返回位置 ---------------...
  • VBA字符串处理大全-from EH

    万次阅读 2017-06-22 09:54:45
    VBA字符串处理大全 转载出处 1 VBA中的字符串 2 VBA中处理字符串的函数  2.1 比较字符串  2.2 转换字符串 ... 2.6 查找字符串  2.7 提取字符/字符串  2.8 删除空格  2.9 返回字符代码  2.10 返
  • Sub 查找文档中有多少个指定字符串() dai_cha_zhao_text = InputBox("请输入您要查找字符串:", " 包含多少个字符串查找") With ActiveDocument.Content.Find Do While .Execute(FindText:=dai_cha_zhao_text...
  • VBA 字符串处理函数

    2012-12-09 23:15:46
    VBA字符串处理 (1) VBA中处理字符串的函数  2.1 StrComp 比较字符串  2.2 StrConv,Str,CStr 转换字符串  2.3 Space,String 创建字符串  2.4 Len 获取字符串的长度 ... 2.6 InStr,InStrRev 查找字符串
  • word vba 如何查找出一个字符串中包括了多少个指定子字符串? Sub at() aaaa = "ASDFSF。ASDF。SDF。234。'XCV。d" '第1种方法 bbb = Replace(aaaa, "。", "") cccc = Split(aaaa, "。") CS1 = Len(aaaa) - Len...
  • @VBA 字符串处理函数集合 mid(字符串,从第几个开始,长度) 在[字符串]中[从第几个开始]取出[长度个字符串] 例如 mid(“小欣无敌”,1,3) 则返回 “小欣无” instr(从第几个开始,字符串1,字符串2) 从规定的位置...
  • 学习资源:《Excel VBA从入门到进阶》第35集 by兰色幻想二、字符串查找与替换1.instrinstr(字符串,要查找的字符) 在字符串里从前向后查找,从左到右计数,找到之后就停止。Sub c1() Dim sr sr = "Excel精英培训...
  • VBA中的字符串处理

    万次阅读 2011-11-16 11:43:18
    1 VBA中的字符串 2 VBA中处理字符串的函数  2.1 比较字符串  2.2 转换字符串 ... 2.6 查找字符串  2.7 提取字符/字符串  2.8 删除空格  2.9 返回字符代码  2.10 返回数值代表的相应字符  2.11
  • VBA 字符串处理函数集

    2019-09-25 19:13:33
    mid(字符串,从第几个开始,长度) 在[字符串]中[从第几个开始]取出[长度个字符串] 例如 mid("小欣无敌",1,...instr(从第几个开始,字符串1,字符串2) 从规定的位置开始查找,返回字符串2在字符串1中的位置 例如 instr...
  • vba字符串处理

    2017-05-15 11:31:02
    mid(源字串,起始位号x,提取长度m);返回第x位起m个字符。要求:起始位号+提取长度 left(源字串,左侧截取长度x);...instr(源字串,待查找子字串u);返回子字串首字符在源字串中的起始位号 chr(65);返回字母A
  • VBA中处理字符串

    万次阅读 2010-08-29 09:43:00
    目录 1 VBA中的字符串 2 VBA中处理字符串的函数  2.1 比较字符串  2.2 转换字符串  2.3 创建字符串  2.4 获取字符串的长度  2.5 格式化字符串  2.6 查找字符串...
  • EXCELVBA字符串处理常用函数汇总

    万次阅读 2017-11-13 13:58:02
    len(s) 求长度 trim(s) 去掉两端空格 replace(s,a,b) 替换s中子串a,用b替代 left(s,a) 从左边取若干字符 right(s,a) 从右边取若干字符 ...instr(a,s,s) 从a位置在s1中查找字符串s2,返回位置
  • VBA字符串处理函数2

    2012-03-02 10:10:34
    2.6 查找字符串 2.6.1 InStr函数 可使用InStr函数返回一字符串在另一字符串中的位置,因此,也可以使用该函数确定一个字符串中是否包含有另一个字符串。其语法为: InStr([Start,]string1,string2[,compare]) ...
  • VBA中常用的字符串处理函数

    千次阅读 2011-08-31 21:15:59
    VBA中处理字符串 分类:ExcelVBA>>常用函数 目录 1 VBA中的字符串 2 VBA中处理字符串的函数 2.1 比较字符串 2.2 转换字符串 2.3 创建字符串 2.4 获取字符串的长度 ...2.6查找字符串 2.7 提取字符/
  • VBA 处理字符串

    2013-11-15 16:37:23
    目录 ...2.6 查找字符串 2.7 提取字符/字符串 2.8 删除空格 2.9 返回字符代码 2.10 返回数值代表的相应字符 2.11 使用字节的函数 2.12 返回数组的函数 2.13 连接字符串 2.14 替换字符串 2.15 反向字符

空空如也

空空如也

1 2 3 4 5 ... 9
收藏数 164
精华内容 65
关键字:

vba查找字符串