Excel VBA：循环为数组内表格应用独立ISBLANK条件格式的问题

问题解决思路 #

原代码因使用固定单元格公式ISBLANK(M64)，导致所有表格的条件格式相互关联。现在通过循环计算每个表格的起始行，为每个表格的指定列单独设置条件格式公式，确保每个表格仅响应自身对应单元格的状态，实现独立控制。

完整VBA代码 #

Sub ToggleConditionalFormatting()
    Dim ws As Worksheet
    Dim startRow As Long
    Dim i As Integer
    Dim targetRange As Range
    Dim cf As FormatCondition
    
    ' 指定目标工作表，修改为实际工作表名称
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 切换逻辑：已有条件格式则移除，无则添加
    If ws.Cells.FormatConditions.Count > 0 Then
        ws.Cells.FormatConditions.Delete
        MsgBox "条件格式已移除"
        Exit Sub
    End If
    
    ' 第一个表格的起始行，按需调整
    startRow = 64
    ' 循环处理10个表格
    For i = 1 To 10
        ' 定义当前表格的指定列区域（此处为M列，46行范围，可修改列标/行数）
        Set targetRange = ws.Range("M" & startRow & ":M" & startRow + 45)
        
        ' 方案1：关联当前表格的起始单元格（匹配需求描述）
        Set cf = targetRange.FormatConditions.Add(Type:=xlExpression, Formula1:="=ISBLANK(M" & startRow & ")")
        
        ' 方案2：判断单元格自身是否空白（若需求为空白单元格单独变色，启用此方案）
        ' Set cf = targetRange.FormatConditions.Add(Type:=xlExpression, Formula1:="=ISBLANK()")
        
        ' 设置填充颜色
        cf.Interior.Color = 10092543
        
        ' 偏移到下一个表格的起始行
        startRow = startRow + 46
    Next i
    
    MsgBox "10个表格的独立条件格式已添加"
End Sub

代码说明 #

• 工作表指定：将ThisWorkbook.Worksheets("Sheet1")替换为你实际操作的工作表名称
• 区域配置：startRow = 64为第一个表格的起始行，Range("M" & startRow & ":M" & startRow + 45)定义了当前表格的指定列范围，可根据实际需求调整列标和行数
• 方案选择：
  • 方案1：每个表格的指定列区域根据自身起始单元格的空白状态变色，完全独立无关联
  • 方案2：指定列的每个空白单元格单独变色，适配“空白单元格设色”的常规场景
• 切换功能：点击按钮时自动判断状态，已有格式则移除，无格式则添加新的独立条件格式

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