excel有很多格子，每个格子有三排文字，我想把每个格子里的一排字更换字体加黑，如何能快速一下就完成

发布网友发布时间：2022-05-13 09:08

共2个回答

热心网友时间：2024-02-22 18:43

建议你把这些数据粘贴到word里面去处理 excel 处理这个实在不是强项……
在word 中就可以使用替换命令来替换了……
对于字体有特殊要求并且格式要求不同的的东西尽量不要再excel中来做即使是做也不要放在同一个单元格……像你现在这个样子在excel 只能用VBA 来模拟你的操作才可以达到要求……这需要你对VBA 比较熟悉才行……

转换到word里面去吧……
像你现在这样的只想修改 Design：后边第一行的字母……那么可以使用下面一段儿代码……
Sub test()
Dim mycel As Range
On Error Resume Next
For Each mycel In ActiveSheet.UsedRange
en = WorksheetFunction.Find(Chr(10), mycel) '第一行末尾字符位置
With mycel.Characters(Start:=8, Length:=en - 8).Font '8 是 Design: 这几个字符之后开始修改的开始位置
.Name = "宋体" '字体的名称
.FontStyle = "加粗" '加粗
.Size = 16 '字号的大小
.Strikethrough = False '在此之下可选不更改可以不要
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Next
End Sub
自己酌情修改一下吧……
alt+f11 打开vbe 窗口插入模块……粘贴这段代码……
然后在要处理的工作表窗口运行这个宏……就可以了……

热心网友时间：2024-02-22 18:44

对其中一个格式进行设置，然后选择设置好的单元格，“格式刷”，刷向其他需要进行同样设置的单元格区域。