求VBA 高手解答！在线等

phuson

我这里有个判断公式，有没有哪位VBA 高手能把这个代码写出来啊？ =IF(OR(HOUR(M2)<8,HOUR(M2)>20),1,IF(AND(HOUR(M2)=8,MINUTE(M2)<=30),1,IF(AND(HOUR(M2)=20,MINUTE(M2)>=30),1,0)))

然后加个循环上去，M2，M3，M4。。。一直到空值

phuson

Sub Opreate()

   For i = 2 To 200
     If (Hour(Sheets("数据").Cells(i, 3)) > 20 Or Hour(Sheets("数据").Cells(i, 3)) < 8) Then
       Sheets("统计").Range("C14") = Sheets("数据").Cells(i, 2)
       Sheets("统计").Range("D14") = Sheets("数据").Cells(i, 3)
       Sheets("统计").Range("E14") = Sheets("数据").Cells(i, 4)
       Sheets("统计").Range("F14") = Sheets("数据").Cells(i, 5)
       Sheets("统计").Range("G14") = Sheets("数据").Cells(i, 6)
       Sheets("统计").Range("H14") = Sheets("数据").Cells(i, 9)
       Sheets("统计").Range("I14") = Sheets("数据").Cells(i, 10)
       Sheets("统计").Range("J14") = Sheets("数据").Cells(i, 11)
      
       If (Hour(Sheets("数据").Cells(i, 3)) = 8 And Minute(Sheets("数据").Cells(i, 3)) <= 30) Then
         Sheets("统计").Range("C14") = Sheets("数据").Cells(i, 2)
         Sheets("统计").Range("D14") = Sheets("数据").Cells(i, 3)
         Sheets("统计").Range("E14") = Sheets("数据").Cells(i, 4)
         Sheets("统计").Range("F14") = Sheets("数据").Cells(i, 5)
         Sheets("统计").Range("G14") = Sheets("数据").Cells(i, 6)
         Sheets("统计").Range("H14") = Sheets("数据").Cells(i, 9)
         Sheets("统计").Range("I14") = Sheets("数据").Cells(i, 10)
         Sheets("统计").Range("J14") = Sheets("数据").Cells(i, 11)
        
        If (Hour(Sheets("数据").Cells(i, 3)) = 20 And Minute(Sheets("数据").Cells(i, 3)) >= 30) Then
          Sheets("统计").Range("C14") = Sheets("数据").Cells(i, 2)
          Sheets("统计").Range("D14") = Sheets("数据").Cells(i, 3)
          Sheets("统计").Range("E14") = Sheets("数据").Cells(i, 4)
          Sheets("统计").Range("F14") = Sheets("数据").Cells(i, 5)
          Sheets("统计").Range("G14") = Sheets("数据").Cells(i, 6)
          Sheets("统计").Range("H14") = Sheets("数据").Cells(i, 9)
          Sheets("统计").Range("I14") = Sheets("数据").Cells(i, 10)
          Sheets("统计").Range("J14") = Sheets("数据").Cells(i, 11)
         
          If Sheets("数据").Cells(i, 3) = "" Then
            GoTo endpoint
          End If
        End If
       End If
      End If
    Next i
endpoint:
End Sub

这个是我的代码，执行起来不对

phuson

就是判断M2单元格的时间是否在 20:30-8:30 之间，如果是，引用，  循环判断