Question

EXCEL中如何批量加粗单元格部分内容

例如：A1：black-Q123
A2：print-W456
A3：rivet-G789
······
要求每个单元格前5位数的内容进行加粗。
要求每个单元格内容:横杠之前或之后面的进行加粗。

Answer 1

在选定单元格后，将第一格的前五位数内容加粗，然后在这个单元格的右下角，按住鼠标左键，往下拉，所有的格式就和单元格的格式一样了

Answer 2

先利用横杠分裂成两列，再加粗你想要的那列，再利用函数合并起来。

Answer 3

用格式刷，可以办到，楼上说的那种办法，也能够办到，不过内容会变

Answer 4

用下面的代码去执行，在该表的代码窗口粘贴下面代码：
Sub aa()
Dim c, n
For Each c In ActiveSheet.Range("a1:a100") '假设数据范围为a1:a100，根据需要修改
If c <> "" Then
n = Len(c.Value)
If n <= 4 Then
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 <= 5 Then
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

Answer 5

批量修改没办法做到，只有纯手工操作。也许vb可以。

追问

VB怎么修改，请给个代码。