作者：乔山办公网日期：
返回目录：excel表格制作
Sub charuhang()
j = 2 '即插入1行，专若属插入两行，则j=2....
For i = 3 To 26
Rows(30 - i & ":" & 30 - i).Select
For k = 1 To j
Selection.Insert Shift:=xlDown
Next k
Next i
End Sub
H11公式下拉：
=SUMPRODUCT(COUNTIF(B11:G11,$I$8:$N$8))
然后筛选H列 小于3的结果。
选中筛选结果 ALT+; 然后复制 粘贴即可。