用于根据查询表中的单元格值生成整行的VBA代码

我在通过SAP Query生成的范围（G15：AL540）中有一个表。 如果列L中的单元格包含“主要调查”一词，则需要使所有行都为粗体。 我使用条件格式（= $ L16 =“主要调查”），它的工作。 但是我需要在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