[已解决]为什么month取值相同

ycb20010823

爱疯版主你好，如果工作表，没有2013-1-1话，就不行了，你试一下！！

ycb20010823

爱疯版主你好，你把工作表中2013-1-1 存现金136.71这行删了，再点按钮的话，12月下面就不会出现月计累计了！

爱疯

Sub 求月计累计()
    Dim K%
    K = 5
    Do
        If Month(Cells(K, 1)) <> Month(Cells(K + 1, 1)) Or Cells(K + 1, 2) = "" Then
            Rows(K + 1 & ":" & K + 2).Insert
            Cells(K + 1, 3) = "月计"
            Cells(K + 2, 3) = "累计"
            K = K + 2
        End If
        K = K + 1
    Loop Until Cells(K, 2) = ""
End Sub

ycb20010823

谢谢爱疯版主的无私帮助，只是差了那么一点点cells(k+1,2)=""，就成功了，感谢你朋友！！！

爱疯

由于我的时间和精力没规律，无法保证及时去回复和关注。
如果有要探讨的问题，还是在论坛发帖吧！谢谢