rwhn.net
当前位置:首页 >> ExCEl vBA特定字符替换 >>

ExCEl vBA特定字符替换

这个最简单了 用Replace语句: 例如: Dim s as String s = "axyzx" s = Replace(s,"x","abc") Msgbox s 那么这个时候就得到了:aabcyzabc

代码如下: Sub 替换一次()Dim Ra As RangeFor Each Ra In Range("K8:K11") If Ra = "a" Then Ra = "b" ElseIf Ra = "b" Then Ra = "c" ElseIf Ra = "c" Then Ra = "aa" End IfNextEnd Sub

你可以用Replace函数去掉“中国人民”和"美国纽约"两端的字符.具体程序如下: Public Sub TestReplace()Dim ss, re, rv ss = "12苏5a中国人民一二d三"& vbNewLine &"egg其d中国人民四a1五六"& vbNewLine&"凡dsf事都美国纽约AAFa分"& vbNewLine&"发...

Sub 宏1() a = "abcd" b = "hijk" Cells.Replace What:=a, Replacement:=b, LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=FalseEnd Suba是被替换的内容 b是替换上的内容

Sub 替换() arr = Array("ABC,BCA,CCAB") brr = Replace(arr(0), "C", "Y") 'C被Y替换 End Sub

VBA 中可以使用 这两个函数 函数碍… 也可以直接使用 另外一种 Like 函数…… 如: If A Like "*aa*" Then MsgBox "A中有aa 这个字符串" Else MsgBox "A中没有aa 这个字符串" End If 或者 使用 InStr 这个函数计算 也可以……

Sub Main() Dim I As Long For I = 1 To 1000 '行数,可以根据实际情况进行修改 If InStr(Range("A" & I), "invalidstatus") > 0 Then'假设数据都在A列中,从第一行开始 Range("A" & I).interior.Color = vbRed End If Next End Sub 如果包含特...

可以这么写: Dim LResult As String LResult = Replace("alphabet", "a", "e") 把字母a换成e

自带的查找替换功能就能实现你的要求。为何还用VBA呢。

'比如 在范围 A1:D100 '把下面代码拷贝到后台宏,按F5执行就OK public sub test() FOR EACH S IN RANGE("A1:D100") if s = "one" then range(s.address)="1" if s = "Thank you" then range(s.address)="谢谢" if s = "me" then range(s.address...

网站首页 | 网站地图
All rights reserved Powered by www.rwhn.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com