基于AZ列单元格值为整行添加粗底边框的VBA方案求助

以下是针对需求编写的VBA宏，适配Mac Excel环境，可实现当AZ列值为True时，为对应整行（A到AZ列）添加粗底边框：

Sub AddBoldBottomBorder()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim targetCell As Range
    Dim rowRange As Range
    
    ' 指定目标工作表，可替换为具体表名如"Sheet1"
    Set ws = ThisWorkbook.ActiveSheet
    
    ' 获取数据区域最后一行（以A列数据为基准，可按需修改列）
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历AZ列的目标行
    For Each targetCell In ws.Range("AZ3:AZ" & lastRow)
        If targetCell.Value = True Then
            ' 选中当前行的A至AZ列区域
            Set rowRange = ws.Range("A" & targetCell.Row & ":AZ" & targetCell.Row)
            ' 设置粗底边框
            With rowRange.Borders(xlEdgeBottom)
                .LineStyle = xlContinuous
                .Weight = xlThick ' 粗线样式
                .ColorIndex = xlAutomatic ' 自动匹配默认边框颜色，可改为vbBlack指定黑色
            End With
        End If
    Next targetCell
End Sub

关键说明 #

1. 工作表指定：默认使用当前激活工作表，如需固定表，将Set ws = ThisWorkbook.ActiveSheet改为Set ws = ThisWorkbook.Worksheets("你的表名")。
2. 最后一行获取：代码以A列数据为基准计算lastRow，如果你的数据最后一行是以其他列判断，比如AZ列，可修改为lastRow = ws.Cells(ws.Rows.Count, "AZ").End(xlUp).Row。
3. 边框样式调整：如果需要修改边框颜色，将.ColorIndex = xlAutomatic替换为.Color = vbRed这类具体颜色常量即可。
4. 清理旧边框：如果需要先清除原有底部边框，可在循环前添加一行：

   ws.Range("A3:AZ" & lastRow).Borders(xlEdgeBottom).LineStyle = xlNone
   

运行方式 #

在Mac Excel中：

1. 点击顶部菜单栏「工具」→「宏」→「宏」；
2. 在弹出窗口中选择AddBoldBottomBorder，点击「执行」即可。

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