条件格式怎么写？

小女孩

条件格式.rar (15.84 KB, 下载次数: 10)

2018-6-10 15:35 上传

点击文件名下载附件

谢谢，哪位帮我写一段条件格式的代码，我录制不行，条件不会写！

hcm19522

=(MOD(COLUMN(A2),3)=1)*(B2="")

zhangzhang

先 取消 所有 合并单元格

Sub 宏2()
   
    Columns("A:A").Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=AND(B1="""",C1="""")"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Bold = True
        .Italic = False
        .TintAndShade = 0
    End With
   
    Selection.FormatConditions(1).StopIfTrue = False
    Columns("A:A").Select
    Selection.Copy
    Range("D1", "G1").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False


End Sub

小女孩

不取消合并单元格，有办法么，而且这样最后一列全是黑体了

小女孩

哪位高手帮我写一下，前面的达不到要求，谢谢！！