[已解决]EXCEL VBA求助

nbwde

如图所示，请各位大神帮忙，感谢！！！！
图中只是举例，实际要处理的数据很多。



工作簿1.rar (8 KB, 下载次数: 12)

2021-8-2 19:21 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

风林火山

2021-8-2 19:41

Sub text()
    Dim k As Long
    For k = 2 To Cells(Rows.Count, 1).End(3).Row
        If Cells(k, 3) = 0 Then Cells(l, 4) = Date
    Next k
End Sub

跳转到最佳答案楼层

风林火山

Sub text()
    Dim k As Long
    For k = 2 To Cells(Rows.Count, 1).End(3).Row
        If Cells(k, 3) = 0 Then Cells(l, 4) = Date
    Next k
End Sub

linuvzg

謝謝分享