求大神再帮我一次

求大神再帮我一次

是我考虑不周。请稍等，我用VBA给你写一个程序吧。追问好的追答请将你的内容输入我的表中，执行VBA程序即可。你可根据我的说明修改。
Sub 宏1()
Dim i As Long
x = Range("A65536").End(xlUp).Row     ‘取A列的未行号
a = Cells(2, 10) '取首个手机号码
b = Cells(2, 1) '取首个日期
i = 3 '号码从第三行起判断
Do While i <= x '至未行
    If Cells(i, 10) = a Then     '手机号相同
        If Cells(i, 1) - b > 7 Then '大于7天
            b = Cells(i, 1) '取新日期
        Else
            Cells(i, 11) = "删除不计数"
        End If
        i = i + 1   '下一行
    Else
        i = i + 1   '下一行
        a = Cells(i, 10)    '取新手机号码
        b = Cells(i, 1)  '取新日期
    End If
Loop
End Sub
追问VBA 我不太懂呀 可以编一个像第一次那样的程序吗？追答用公式不能作复杂的反复判断，所以要用程序操作。
你将数据复制到我的表上，对应为A、J列即可，然后执行工具－宏－宏1　的程序即可。追问
是从这里吗？ 可这些都是灰色的 
来自：求助得到的回答