Excel怎么批量设置单个单元格前9个字符字体大小

发布网友发布时间：2022-04-21 17:18

我来回答

共4个回答

热心网友时间：2023-06-25 05:52

Excel中可以使用VBA批量设置单元格前9个字符字体大小。

软件版本：Office2007

方法如下：

将A列中单元格前9个字符字体大小设置为20号：

Alt+F11，输入代码如下图所示：

按下F5执行代码，返回Excel，得到结果如下图所示：

注意事项：根据实际的数据区域，修改代码中的行列参数即可。

追问

麻烦你看一下，全照写还不行。2016版本的。

热心网友时间：2023-06-25 05:52

代码如下，水平有限，高手莫笑

Sub 修改字号()
select_c = Selection.Address
YorN = MsgBox("请确认选择的范围是否正确" & Chr(13) & "选择的范围是：" & select_c, vbYesNo)
If YorN = vbNo Then
    MsgBox ("即将退出程序，请重新选择")
    Exit Sub
Else
111
    change_size = InputBox("请输入字号，只能输入数字！", "输入字号")
    If IsNumeric(change_size) = False Then
        YorN_2 = MsgBox("输入的不是数字，请重新输入！" & Chr(13) & "“确定”=重新输入" & Chr(13) & "“取消”=不再重新输入并结束程序", vbOKCancel)
        If YorN_2 = vbCancel Then
            MsgBox ("即将退出程序")
            Exit Sub
        Else
            GoTo 111
        End If
    End If
    For Each i In Selection
        If i.Value = "" Then
            GoTo 886
        End If
        i.Characters(Start:=1, Length:=9).Font.Size = change_size
886
    Next i
End If
End Sub

选中相应的需要修改的范围，然后根据提示熟悉更改的字号即可

热心网友时间：2023-06-25 05:52

好懒好无赖我只评论不说VBA！

热心网友时间：2023-06-25 05:53

好牛的样子，提问的气场太强，代码我怕也hold不住