能否通过脚本在Google Sheets中按条件更改字体？

完全可以用VBA实现你说的两个需求，下面是针对每个场景的代码，带详细注释，新手照着操作就行：

场景一：A列单元格为空时，修改对应B列单元格的字体 #

适用于指定工作表，遍历A列有效数据行，判断A列单元格是否为空，为空就修改对应B列的字体样式：

Sub FormatBColumnWhenAIsEmpty()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 替换成你的目标工作表名称，比如"Sheet1"
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取A列最后一行有数据的行号（避免遍历空行浪费资源）
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历A列第1行到最后一行
    For i = 1 To lastRow
        ' 判断A列当前单元格是否为空
        If ws.Cells(i, "A").Value = "" Then
            ' 设置对应B列单元格的字体
            With ws.Cells(i, "B").Font
                .Name = "微软雅黑" ' 替换成你要的字体，比如"Arial"
                .Size = 12 ' 替换成你要的字号
                ' 可选：还可以加其他样式，比如加粗 .Bold = True
            End With
        End If
    Next i
End Sub

场景二：A列单元格为空时，修改A列下一行单元格的字体 #

适用于另一张工作表，遍历A列，若当前单元格为空，就修改下一行A列的字体：

Sub FormatNextRowInAWhenCurrentIsEmpty()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 替换成你的目标工作表名称，比如"Sheet2"
    Set ws = ThisWorkbook.Worksheets("Sheet2")
    
    ' 获取A列最后一行有数据的行号（留一行避免下一行超出表格）
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历A列第1行到倒数第二行（防止下一行超出表格范围）
    For i = 1 To lastRow - 1
        ' 判断A列当前单元格是否为空
        If ws.Cells(i, "A").Value = "" Then
            ' 设置下一行A列单元格的字体
            With ws.Cells(i + 1, "A").Font
                .Name = "宋体" ' 替换成你要的字体
                .Size = 14 ' 替换成你要的字号
                ' 可选：斜体 .Italic = True
            End With
        End If
    Next i
End Sub

新手操作步骤： #

1. 打开你的Excel文件
2. 按下 Alt + F11 打开VBA编辑器
3. 右键点击左侧工程窗口，选择「插入」→「模块」
4. 将代码粘贴到模块窗口，修改工作表名称、字体和字号为你需要的内容
5. 按下 F5 运行对应宏，或在Excel「开发工具」→「宏」里选择运行

内容的提问来源于stack exchange，提问作者VeganGeek