Excel VBA代码,用于根据查询表中的单元格值将整行加粗

Excel VBA代码,用于根据查询表中的单元格值将整行加粗,excel,vba,sap-query,Excel,Vba,Sap Query,我有一个通过SAP查询生成的范围(G15:AL540)的表。如果列L中的单元格包含单词“Main Investigation”,我需要将所有行都加粗。我使用条件格式($L16=“Main investigation”)完成了这项工作,效果良好。但我需要用VBA编写它,以便在刷新查询时自动应用此格式 谢谢 这仅适用于活动工作表,将活动工作表更改为工作表(“工作表ABC”)以引用其他工作表 Sub test() With ActiveSheet For Each cell In .Range

我有一个通过SAP查询生成的范围(G15:AL540)的表。如果列L中的单元格包含单词“Main Investigation”,我需要将所有行都加粗。我使用条件格式($L16=“Main investigation”)完成了这项工作,效果良好。但我需要用VBA编写它,以便在刷新查询时自动应用此格式


谢谢

这仅适用于活动工作表,将活动工作表更改为工作表(“工作表ABC”)以引用其他工作表

Sub test()
With ActiveSheet
    For Each cell In .Range("G15:" & .Range("G15").End(xlDown).Address)
        If .Cells(cell.Row, 12).Value = "Main investigation" Then
            cell.EntireRow.Font.Bold = True
        End If
    Next
End With
End Sub

谢谢@99moorem。太完美了!如果它对你有用,你能把它作为答案吗。柱子左边的小勾号