- ·上一篇：两个excel表格数字相加怎么加
- ·下一篇：excel表格怎么查找有没有重复项
excel表格怎么给列加粗
2025-12-22 08:35:59
1.EXCEL中如何批量加粗单元格部分内容
用下面的代码去执行，在该表的代码窗口粘贴下面代码：
Sub aa()
Dim c, n
For Each c In ActiveSheet.Range("a1:a100") '假设数据范围为a1:a100，根据需要修改
If c "" Then
n = Len(c.Value)
If n c.Characters(Start:=1, Length:=n).Font.FontStyle = "加粗"
Else:
c.Characters(Start:=n - 4 + 1, Length:=4).Font.FontStyle = "加粗"
End If
End If
Next c
End Sub
右击表名 》查看代码，可以进入该表代码窗口，粘贴后，点击代码窗口上面的小绿色三角按钮
Sub aa()
Dim c, n
For Each c In ActiveSheet.Range("a1:a100") '假设数据范围为a1:a100，根据需要修改
If c "" Then
n = Len(c.Value)
If n c.Characters(Start:=1, Length:=n).Font.FontStyle = "加粗"
Else:
c.Characters(Start:=n - 5 + 1, Length:=5).Font.FontStyle = "加粗"
End If
End If
Next c
End Sub