求助:如何在excel里批量替换特定字符的文本格式
比如:sheet1中有一个特定词汇表格,怎样能在sheet2中词汇表里包含的词汇的文字格式都替换成红色加粗字体。一个是需要批量替换,而不是一次次地ctrl+h。另一个是特...
比如:sheet1中有一个特定词汇表格,怎样能在sheet2中词汇表里包含的词汇的文字格式都替换成红色加粗字体。
一个是需要批量替换,而不是一次次地ctrl+h。另一个是特定文本的文字格式替换,而不是单元格条件格式。这样以后对sheet1里的表格进行更新,sheet2里也能相应地变化。 展开
一个是需要批量替换,而不是一次次地ctrl+h。另一个是特定文本的文字格式替换,而不是单元格条件格式。这样以后对sheet1里的表格进行更新,sheet2里也能相应地变化。 展开
2个回答
展开全部
VBA, 代码如下,
Sub tst()
Dim cel1 As Range, cel2 As Range
For Each cel1 In Sheet1.UsedRange
For Each cel2 In Sheet2.UsedRange
If cel2.Value Like cel1.Value & "*" Then
With cel2.Characters(Start:=1, Length:=Len(cel1)).Font
.Name = cel1.Font.Name
.FontStyle = cel1.Font.FontStyle
.Size = cel1.Font.Size
.Color = cel1.Font.Color
End With
End If
Next
Next
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询