发布网友 发布时间:2022-04-20 21:15
共4个回答
热心网友 时间:2023-09-13 14:01
菜单“编辑”--“替换”,在弹出的对话框里,输入查找内容(已经在文档里存在的),替换内容(新的内容),全部替换就行了。热心网友 时间:2023-09-13 14:01
replace追答我手上有个现成的宏,但是没有用过,你试试:
Sub hjs()
Dim r As Range
Dim i% '定义i为整型,缩写
Dim First$ '定义first为字符串,缩写
Application.ScreenUpdating = False'关闭屏幕更新,加快代码执行
Set r = Cells.find("#", lookat:=xlPart) '在工作表里查找#号,xlpart表示单元格不用完全匹配
If Not r Is Nothing Then'当找到时
First = r.Address '用first记录下第一个单元格的地址
Do'查找下一个的循环过程
For i = 1 To Len(r) '对找到的单元格,从第一个字符到最后一个字符
If Mid(r, i, 1) = "#" Then'假如是#号时,则设置它为上标
r.Characters(Start:=i, Length:=1).Font.Superscript = True
End If
Next
Set r = Cells.FindNext(r) '在找到的单元格之后,查找新一个单元格
Loop Until r.Address = First '重复整个过程,一直到最后找到的单元格的地址等于第一个单元格的地址
End If
Application.ScreenUpdating = True
End Sub
热心网友 时间:2023-09-13 14:02
举个例子吧热心网友 时间:2023-09-13 14:02
自定义格式,选文本可以么?