VBA宏条件设置：仅在含"ABC"的工作表添加列

云上老周

2026-8-20

问题：仅在包含"ABC"单元格的工作表中执行添加列操作的VBA宏条件判断写法

我编写了一个可遍历文件中所有工作表并添加列的VBA宏，希望添加条件：仅在存在值为"ABC"的单元格的工作表中执行添加列操作，其余工作表保持不变。请问对应的IF函数应如何编写？

现有代码片段：

For Each ws In Worksheets
u = Application.WorksheetFunction.CountIfs(Range("A:QZ"), "ABC")
If u Then
ws.Activate

End If
Next ws

Wb.Save
Wb.Close False
    strFil = Dir
Loop


End Sub

解答

核心问题修正：

原代码里的Range("A:QZ")未指定所属工作表，会默认引用当前激活的工作表，而非正在遍历的ws，这会导致判断逻辑出错。必须明确指定为ws.Range("A:QZ")。

正确的条件判断写法：

因为是单个匹配条件，用CountIf比CountIfs更简洁，判断计数结果是否大于0即可触发后续操作。同时不需要激活工作表，直接对ws对象操作更高效稳定。

修正后的完整代码（包含添加列操作）：

For Each ws In Worksheets
    ' 统计当前工作表中值为"ABC"的单元格数量
    Dim matchCount As Long
    matchCount = Application.WorksheetFunction.CountIf(ws.Range("A:QZ"), "ABC")
    
    ' 只要存在匹配的单元格，就执行添加列操作
    If matchCount > 0 Then
        ' 示例：在第18列（R列）左侧插入新列，可根据需求修改位置
        ws.Columns("R:R").Insert Shift:=xlToRight
        ' 可在这里添加新列的其他设置，比如列名、格式等
        ws.Range("R1").Value = "新添加的列"
    End If
Next ws

Wb.Save
Wb.Close False
strFil = Dir
Loop

End Sub