VBA标红

上级发来一个EXcel表格很长，要求把数据不连续的地方标注，本准备加工一下搞成数组然后用java来处理，悲剧的是溢出了，

知道有一个对excel处理的东东叫vba，查了一下，就用它了，这是我第一个VBA程序，（没有VB基础），哈哈，贴上来留做纪念

 

Sub test1()
For i = 2 To 24335
    If CLng(Right(Sheet1.Cells(i, 4), 6)) - CLng(Right(Sheet1.Cells(i - 1, 4), 6)) <> 1 Then
       Sheet1.Cells(i, 4).Interior.ColorIndex = 3
Sheet1.Cells(i, 5) = 1

    End If
  Next
End Sub