Sub 单元格条件格式()
ActiveSheet.Range("a3:G1000").Select
    Selection.FormatConditions.Delete
    With Selection.FormatConditions.Add(Type:=xlExpression, Formula1:="=$A3<>""""") '基于是基于表达式
'    With Selection.FormatConditions.Add(xlCellValue, xlNotBetween, "6", "8")            '基于单元格值的条件格式
    With .Borders
        .LineStyle = xlContinuous '边框线性，细线
        .Weight = xlThin  '边框粗细，细
        .ColorIndex = 5  '颜色，兰
    End With
    End With
End Sub
'***********条件格式知识点:********************
' FormatConditions.Add(Type, Operator, Formula1, Formula2)
'其中四个参数:
' 一Type  指定条件格式是基于单元格值还是基于表达式。
        '可为以下常量之一（xlCellValue 基于单元格值的条件格式； xlExpression 基于表达式的条件格式）
'二Operator  可选。条件格式运算符。可为以下常量之一
'        （xlBetween介于、xlEqual等于、xlGreater大于、xlGreaterEqual大于等于、xlLess小于、xlLessEqual小于等于、xlNotBetween未介于 或 xlNotEqual不等于）如果 Type 为 xlExpression，则忽略 Operator 参数。
'三 Formula1 可选?与条件格式相关的表达式或数值?可为常量?字符串?单元格引用或公式?
'四Formula2  可选。当 Operator 为 xlBetween 或 xlNotBetween 时，为与条件格式第二部分相关的表达式或数值（否则 ，则忽略本参数）。可为常量、字符串、单元格引用或公式。

Sub 提取分表内容()
Sheets("目录").Range("a3:g1000").Clear
Dim sh As Worksheet
Dim a, c As Integer
'Dim a As Integer
Dim k As Integer
k = 3
For Each sh In Worksheets
If sh.Name <> "目录" Then
a = sh.Range("a6356").End(xlUp).Row + 4
c = a / 31 - 1
  For j = 0 To c
 i = 31 * j + 4
 Sheets("目录").Cells(k, 1) = sh.Cells(i, "G")
 Sheets("目录").Cells(k, 2) = sh.Cells(i, "K")
 Sheets("目录").Cells(k, 3) = sh.Cells(i + 1, "G")
 Sheets("目录").Cells(k, 4) = sh.Cells(i + 4, "b")
 总人口 = WorksheetFunction.CountIf(sh.Range(sh.Cells(i + 4, "b"), sh.Cells(i + 9, "b")), "*")
 Sheets("目录").Cells(k, 5) = 总人口
 Sheets("目录").Cells(k, 6) = sh.Cells(i + 12, "i")
 For peiou = 2 To 总人口
  If sh.Cells(i + 3 + peiou, "C") = "配偶" Then
    Sheets("目录").Cells(k, 7) = sh.Cells(i + 3 + peiou, "B")
    Exit For
  End If
 Next
 k = k + 1
Next
End If
Next
单元格条件格式
End Sub