没问题，我来帮你搞定这个需求！你的核心需求是点击按钮时让对应列加粗，同时把其他所有已加粗的列恢复正常格式——其实只要在现有代码基础上，先遍历取消所有列的加粗，再单独设置目标列就可以实现。

完整VBA代码示例 #

Sub SetColumnBold()
    Dim targetCol As Integer
    Dim ws As Worksheet
    Dim lastCol As Integer
    Dim i As Integer
    
    ' 指定当前操作的工作表（如果需要固定某张表，可改成Set ws = ThisWorkbook.Sheets("你的表名")）
    Set ws = ActiveSheet
    
    ' 获取触发宏的按钮所在的列（这个写法让每个按钮对应自己所在的列，通用性拉满）
    targetCol = ws.Shapes(Application.Caller).TopLeftCell.Column
    
    ' 获取工作表中最后一列有数据的列号，避免无效遍历空列
    lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    
    ' 第一步：取消所有列的加粗格式
    For i = 1 To lastCol
        ws.Columns(i).Font.Bold = False
    Next i
    
    ' 第二步：把目标列设置为加粗
    ws.Columns(targetCol).Font.Bold = True
End Sub

代码细节说明 #

• 自动识别目标列：Application.Caller会获取当前点击的按钮名称，再通过TopLeftCell.Column拿到按钮所在的列，你给每列都加一个按钮的话，每个按钮都会自动对应自己所在的列，不用手动修改列号。
• 高效遍历：lastCol会自动定位到工作表最后一列有数据的位置，不会去遍历那些空列，节省运行时间。
• 先清后设逻辑：先把所有列的加粗状态取消，再单独设置目标列，这样就能保证永远只有当前点击的列是加粗状态。

特殊场景调整 #

如果你的按钮不是放在目标列旁边，而是需要固定指定某一列（比如点击按钮只加粗B列），可以把targetCol那行改成固定值：

targetCol = 2 ' 2代表B列，替换成你需要的列号即可

如果不想把整列都加粗，只想加粗该列有数据的单元格区域，可以把Columns(i).Font.Bold改成ws.UsedRange.Columns(i).Font.Bold，这样只会处理已使用的单元格范围。

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