求助！哪位大神帮忙给看一下怎么编写这个VBA代码？万分感谢！！！

liulang0808

cdcn

对C列格式进行了修改，请测试

1. Sub test()
   
2.     Dim i%, bz#, arr, brr
   
3.     With Columns("C:C")
   
4.         .NumberFormatLocal = "G/通用格式"
   
5.         .Value = .Value
   
6.     End With
   
7.     bz = Cells(2, 2) + 8 / 24
   
8.     arr = UsedRange
   
9.     arr(2, 1) = 1
   
10.     For i = 3 To UBound(arr)
    
11.         y = (arr(i - 1, 2) + arr(i - 1, 3) - bz) - Int(arr(i - 1, 2) + arr(i - 1, 3) - bz)
    
12.         x = (arr(i, 2) + arr(i, 3) - bz) - Int(arr(i, 2) + arr(i, 3) - bz)
    
13.         If x >= y Then
    
14.             arr(i, 1) = arr(i - 1, 1) + 1
    
15.         Else
    
16.             arr(i, 1) = 1
    
17.         End If
    
18.     Next
    
19.     Cells(1, 1).Resize(UBound(arr), 3) = arr
    
20. End Sub

复制代码

cdcn

代码审核中……

xahuchm

liulang0808 发表于 2023-4-20 18:59

非常感谢，终于解决了！思路清晰。

zjzyj

有没有必要考虑万一出现8点-9点监控缺失的情况？