考勤增补

不还手

公司的考勤专员为了验厂，把周六的考勤都删掉了，原始数据没有备份，请问我怎么在样表中快速插入11日、18日和25日的考勤记录？
ps:1、每个员工的出勤天数不一样，所以间隔行数不是固定的。
    2、我用日期筛选，选13日，然后隔行插入空白行，再日期列选空白，编了数据往下一拉，结果所有的数据都被覆盖了，郁闷了。

lzqlaj

Sub tianjia()
    Dim xrow, i, k
    xrow = Range("a65536").End(xlUp).Row
    For i = xrow To 1 Step -1
        If Cells(i, 4) = "27" Or Cells(i, 4) = "20" Or Cells(i, 4) = "13" Then
            Rows(i).Select
            Selection.Insert Shift:=xlDown
            Cells(i, 4) = Cells(i - 1, 4) + 1
            For k = 1 To 3
                Cells(i, k) = Cells(i - 1, k)
            Next k
            Range(Cells(i, 1), Cells(i, 4)).Select
            With Selection.Interior
                .ColorIndex = 3
            End With
        End If
    Next i
End Sub

lzqlaj

运行后结果见附件。

HILLWIND

要用代码呀，好强的哦。。。。。。。