24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

zhangyj1257

新虫 (初入文坛)

应助: 0 (幼儿园)
帖子: 4
在线: 2.2小时
虫号: 1860956
注册: 2012-06-16

[求助] 如何在excel中实现：成批量查找字符串中指定位置的字符，并标为红色已有2人参与

各位大侠，

想请教一下大家，如何在excel中实现：成批量查找字符串中指定位置的字符，并将查找到的字符标为红色。

如图所示：列1中有上万行待查找的字符串，列2中是想要在列1字符串中中查找的位置。想要实现的目的：在列1中查找列2指定位置的字符，并用红色标出（图中所示红色为我自己手动标出的）。

不知道大家有没有什么好的办法，恳请各位大侠帮我出出主意，非常非常非常感谢大家！！！

example.PNG

回复此楼

» 猜你喜欢

论文终于录用啦！满足毕业条件了已经有10人回复
2025年遐想已经有4人回复
投稿Elsevier的杂志（返修），总是在选择OA和subscription界面被踢皮球已经有8人回复
求个博导看看已经有18人回复

» 本主题相关价值贴推荐，对您同样有帮助:

怎么样设置matlab在excel中的输出位置已经有10人回复

1楼 2015-02-07 17:29:14

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

deephill

铁杆木虫 (职业作家)

应助: 59 (初中生)
金币: 5262.3
散金: 100
红花: 16
帖子: 4425
在线: 425小时
虫号: 305318
注册: 2006-12-09
性别: GG
专业: 微量元素地球化学

【答案】应助回帖

感谢参与，应助指数 +1

楼上的很好
我录制了个vba ，修改了下，也可以。
你把下面的vba 代码贴进去也可以，你也可以根据情况自己修改。

'===============================
Sub Macro1()
'
' Macro1 Macro
For i = 1 To Range("a65536"

.End(xlUp).Row
'' 字符串放在  A  列，开始变红的位置数据放在 B  列。
Range("A" & i).Select
ActiveCell.FormulaR1C1 = Range("A" & i).Value
With ActiveCell.Characters(Start:=Range("B" & i).Value, Length:=1).Font
      .Name = "Arial"
      .FontStyle = "常规"
      .Size = 10
      .Strikethrough = False
      .Superscript = False
      .Subscript = False
      .OutlineFont = False
      .Shadow = False
      .Underline = xlUnderlineStyleNone
      .Color = -16776961
      .TintAndShade = 0
      .ThemeFont = xlThemeFontNone
End With

Next i
End Sub
'==================