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

ExCEl vBA特定字符替换

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

Sub xxx() Dim c For Each c In Range("c4:g9").Cells c = Replace(c, "ADFGS", "ZXG") Next cEnd Sub

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

一般用replace就行了,或者也可以配合find或者mid来用,复杂的规则就要用正则表达式了。

直接查找替换 vba替换 Sub x() Dim x, rg For x = 1 To Sheets.Count If x = 3 Or x = 6 Then GoTo 10 For Each rg In Sheets(x).UsedRange With rg.Font If .Bold = True And .Name = "宋体" Then .Name = "楷体常规" .Size = 11 .Bold = False...

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

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 如果包含特...

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

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

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