帮忙给解一下惑

bdwkftxx

Sub test()
Application.ScreenUpdating = False  
Application.DisplayAlerts = False   
arr = Sheets(1).UsedRange         
With Sheets(3)
    For i = 2 To UBound(arr)      
        a = Split(arr(i, 4))        
        rq = Day(a(0))            
        If rq > rq1 Then rq1 = rq1 + 1
            If rq1 > 16 Then
                If C = 0 Then
                    r1 = n
                    n = 0
                End If
                C = 3
            End If
         If arr(i, 2) <> s Then
             If s <> "" Then
                r2 = IIf(r1 > n, r1, n)
                .Cells(r, 1).Resize(r2 + 1, 9).Borders.LineStyle = xlContinuous
                .Cells(r + r2 + 1, 1).Resize(12, 1) = Application.Transpose(Array("全月应出勤天数：天", "实际出勤天数：天", "正常月休天数：天", "休存假天数：天", "休年假天数：天", "事假天数：天", "病假天数：天", "夜班天数：个", "全月加班小时：小时", "剩余年假天数：天", "剩余存假：天", "确认无误后请签名："))
             End If
             s = arr(i, 2)
             C = 0
             n = 0
             r = .[A65536].End(3).Row + 4
             .Cells(r, 1).Resize(1, 9) = [{"部门","姓名","考勤号码","日期","时间","备注","日期","时间","备注"}]
             rq1 = 1
        End If
        For j = rq1 To rq
            If j > 16 Then
                If C = 0 Then
                    r1 = n
                    n = 0
                End If
                C = 3
            End If
            n = n + 1
            .Cells(r + n, 1) = arr(i, 1)
            .Cells(r + n, 2) = arr(i, 2)
            .Cells(r + n, 3) = arr(i, 3)
            .Cells(r + n, 4 + C) = DateValue(Format(a(0), "YYYY/M/") & j)
        Next
        .Cells(r + n, 5 + C) = a(1)
        rq1 = rq
    Next
    r2 = IIf(r1 > n, r1, n)
    .Cells(r, 1).Resize(r2 + 1, 9).Borders.LineStyle = xlContinuous
    .Cells(r + r2 + 1, 1).Resize(12, 1) = Application.Transpose(Array("全月应出勤天数：天", "实际出勤天数：天", _
        "正常月休天数：天", "休存假天数：天", "休年假天数：天", "事假天数：天", "病假天数：天", "夜班天数：个", _
        "全月加班小时：小时", "剩余年假天数：天", "剩余存假：天", "确认无误后请签名："))
     For j = r2 + r + 1 To 4 Step -1
         If .Cells(j, 4) <> "" And .Cells(j, 4) = .Cells(j - 1, 4) Then .Cells(j - 1, 4).Resize(2).Merge
         If .Cells(j, 7) <> "" And .Cells(j, 7) = .Cells(j - 1, 7) Then .Cells(j - 1, 7).Resize(2).Merge
     Next
End With
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

这是“半百”帮我写的代码，能够完美的运行。有些地方我有些疑惑， If rq > rq1 Then rq1 = rq1 + 1 这行代码中rq在If语句之前已经赋值，rq1没有赋值，而是在后面的代码中才出现赋值。我不明白为什么 If rq > rq1 Then rq1 = rq1 + 1这句代码还能运行。后面的s,c也存在相同的疑惑

ykcbf1100

解惑还是找原作者吧，他最有发言权。

hongshan2019

F8运行，看看rq1 初始值，你或许就明白了

边缘码农

If rq > rq1 Then rq1 = rq1 + 1

这句代码，当 rq > rq1 成立时，执行rq1 = rq1 + 1；不成立时，不进行操作。
假定rq=1，rq1的初始值是0，执行这句代码的时候，不对rq1的值进行改动。后面的代码对rq1赋值3，循环回来执行到这句代码的时候，执行rq1 = rq1 + 1。

大约就是这个意思。

半百

If rq > rq1 Then rq1 = rq1 + 1 ， rq1用来记录出现了多少个日期，比如1号第一次打卡，rq=1 , rq1还没赋值，可以默认为0,小于rq，那么 rq1 = rq1 + 1后， rq1 =1，第二次rq还是1（1号那天打了几次卡），rq1不变，还是1。第三次打卡是4号（2号3号没有打卡出勤），则rq=4，大于rq1，那么 rq1 = rq1 + 1后rq1=2，后边For j = rq1 To rq循环，即从2 到4，添加了2号3号的打卡空白记录，同时输出4号第一次打卡记录。rq1的作用就是添加没有打卡的日期。
s是记录员工姓名的，程序运行之初没有给它赋值，什么都不是，当然，你可以默认为等于0,如果与数字比大小的话，或等于""，如果与字符串比较的话。每一次（包括第一次）出现新的姓名时，s都不等于arr(i, 2)，那么就要新增一个区域来处理该姓名的记录，然后s = arr(i, 2)，记录下这个姓名，下边再出现这个姓名时，就一直在该区域中记录便不会新增区域，直到再出现新的姓名，再新增区域，如此循环。
实际上，相当于在For i = 2 To UBound(arr)前边，少写了rq1 = 0, s ="", c=0，这样的给变量赋初始值的语句，如果写上了，可能你就没有这样的疑惑了吧

bdwkftxx

多谢半百的解释。我现在只是对VBA很感兴趣，想学习一下，水平连入门都算不上。真想加你为好友，无奈新人权限有限。只能在这里表示感谢了。