基于查询表中的单元格值使整行变为粗体的VBA代码

Question

我有一个通过SAP Query生成的范围（G15:AL540）中的表。如果列CCD_ 2中的单元格包含单词"；主要调查"；。我使用条件格式（=$L16="Main investigation"）完成了这项工作，它起到了作用。但我需要用VBA编写它，以便在刷新查询时自动应用此格式。

谢谢！

Answer 1

这只适用于活动工作表，将活动工作表更改为工作表（"sheetabc"）以引用另一个工作表

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