VBA的问题

Question

Private Sub Workbook_Open()     Dim lRow As Long, lRowCount As Long 
    lRowCount = Cells(Rows.Count, 1).End(xlUp).Row 
    Cells.Interior.ColorIndex = xlNone 
    Dim rowIndex As Integer 
    For lRow = 2 To lRowCount 
        rowIndex = Month(Cells(lRow, 2) - Cells(lRow, 1)) 
        
          Cells(lRow, 2).Offset(0, rowIndex).Interior.Color = vbRed 
          Cells(lRow, 2).Offset(0, rowIndex).Value = "下一次"       
    Next lRow 
End Sub 以上代码中如何修改实现这样功能： 
1、excel文件打开时，“下一次”的字样也需同时清掉，确保excel中的每一行只有一个格有“下一次”的字样 
2、为什么有些地方两个日期相减后得出的月数不准，如2010-07-04减2009-07-04，结果老是为相差两个月

Answer 1

楼上说的有理,最好同时去那边也问问.EH上写EXCEL插件的人多不多我不清楚,写VBA的人确实是挺多的