我是在做一个排班表对照表，有上班会在单元格自动填充8，没上班在单元格自动填充-8，但是由于我的循环是针对刷卡记录一个个对照，造成每一次循环都会有没上班的，造成都是-8，请高手指点：
For i = 3 To r4 Step 2 '每个工号循环
  For j = 4 To 日期  '每个工号从第4列开始循环
    For skjl = 1 To r2 '相对应的工号进行比较
       If Trim(Sheets("排班表").Range("A" & i)) = Trim(Sheets("刷卡记录").Range("B" & skjl)) Then '判断两个工作表的工号字段是否一样
          If Trim(Sheets("排班表").Cells(2, j)) = Mid(Sheets("刷卡记录").Range(CStr(Trim("D" & skjl))), 8, 2)  Then '判断两个工作表的要对比的日期是否一样
              Sheets("排班表").Cells(i + 1, j) = 8
         End If
            If Trim(Sheets("排班表").Cells(2, j)) <> Mid(Sheets("刷卡记录").Range(CStr(Trim("D" & skjl))), 8, 2) Then　'判断两个工作表的要对比的日期是否不一样
                  Sheets("排班表").Cells(i + 1, j) =-8
             End If
          End If
       End If
      NEXT
   NEXT
NEXT

[[it] 本帖最后由 tombos 于 2009-7-21 20:46 编辑 [/it]]

不明不白

还需提供什么？谢谢！