vba检查指定列中是否包含公式

宏初学者

列举部分数据，如何用宏vba自动在指定多列中查找单元格是否包含有公式，列中一旦查找到有包含公式该列就不用继续查找同列的下一个公式单元格，其他列也一样，只要一找到就停止，最后用同一个弹出框提示哪几列有包含公式


比如指定列为A/E/G/K列，为了方便结果，有包含公式的我标了红色字体。该案例结果弹出框：在A、G、K列中发现有公式的单元格

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim rngCel As Range
   
    With ActiveSheet.UsedRange
        .Cells.Font.Color = 0
        For Each rngCel In .Cells
            If rngCel.HasFormula Then rngCel.Font.Color = vbRed
        Next
    End With

    Beep
End Sub

gwjkkkkk

。。。。。。。。。。。。

z865593849

宏初学者

gwjkkkkk 发表于 2024-9-28 11:07
Option Explicit
Sub TEST1()
    Dim rngCel As Range

哈哈，大哥误解了，标红是为了方便知道该案例哪列有包含公式，实际上数据是没有标红，也不知道哪列有包含公式的

gwjkkkkk

。。。。。。。。。。。。。。。。。。。。。。。。

宏初学者

gwjkkkkk 发表于 2024-9-28 11:30
。。。。。。。。。。。。。。。。。。。。。。。。

哎，不好意思，看错了，那怎么弹出框提示是那几列包含公式

宏初学者

z865593849 发表于 2024-9-28 11:20

感谢感谢，如果用弹出框，但是它只提示一个单元格，结果用一个弹出框提示哪几列含有公式，只要列就行不用精确到单元格

quqiyuan

参与一下，仅供参考。。。

饮冰e士

练习一下：