求助VBA单元格标底色，设置粗体，字号

jian82372387

有没办法发将excel表中A-L列中有“▼”符号的单元格的下方单元格标黄色，设置粗体，字号设为12，N-Y列中有“▲”符号的单元格的上方单元格标黄色，设置粗体，字号设为12吗？？

准提部林

Sub TEST_A1()
Dim xA As Range, xR As Range, k%, c%, T$
On Error Resume Next
Application.ScreenUpdating = False
For Each xA In Range("A:L,N:Y").Areas
     k = k + 1: c = -2 * (k = 1): T = Mid("▼▲", k, 1)
     xA.Replace T, "TRUE", lookat:=xlWhole
     For Each xR In xA.SpecialCells(xlCellTypeConstants, 4)
         With xR(c)
             .Font.Size = 12: .Font.Bold = True
             .Interior.ColorIndex = Array(6, 40)(k - 1)
         End With
     Next
     xA.Replace "TRUE", T, lookat:=xlWhole
Next
End Sub

ykcbf1100

颜色标注。