【文件属性】：
文件名称：自动创建组合
文件大小：4.74MB
文件格式：XLSM
更新时间：2017-09-02 14:20:38
EXCEL VBA 创建 组合
自动将符合条件的数据行建成组合.
If Cells(i, 4) = "本月有五个星期五六日" Then
b = i - 1
Rows("" & A + 1 & ":" & b & "").Select
Selection.Rows.Group
A = b + 1
End If