回答;VBA编辑器:在VBA编辑器界面,点击菜单栏的“插入”,选择“模块”。这段代码会遍历你选中的单元格区域
vbaSub FormatFirstCharacter()
Dim rng As Range
Dim cell As Range
需要每次对选中的数据运行宏,数字不行
' 处理当前选中的单元格区域
For Each cell In Selection
If Len(cell.Value) > 0 Then ' 确保单元格非空
With cell.Characters(Start:=1, Length:=1).Font
.Color = RGB(255, 0, 0) ' 设置为红色
.Size = 15 ' 增大字号,例如15号
' 如果需要,还可以添加 .Bold = True 等属性
End With
End If
Next cell
MsgBox "处理完成!"
End Sub
WPS寻令官 | WPS产品体验官
创作者俱乐部成员
WPS金话筒 | WPS寻令官
WPS寻令官 | 创作者俱乐部成员