单个单元格中的左行文字少于今天的日期

Question

在单个单元格中有类似]的注释>

23/11/2019 Comments Demo
10/10/2019 Comments Demo2
02/09/2019 Comments Demo3
04/08/2019 Comments Demo4
[全部四个评论都在单个单元格中，我想删除的评论要少于当前月份

<< img src =“ https://image.soinside.com/eyJ1cmwiOiAiaHR0cHM6Ly9pLnN0YWNrLmltZ3VyLmNvbS9CelVwaC5wbmcifQ==” alt =“超出输出”>“>

可能的输出是

10/10/2019 Comments Demo2
02/09/2019 Comments Demo3
04/08/2019 Comments Demo4
[在单个单元格中，有类似23/11/2019的注释注释Demo 10/10/2019注释Demo2 02/09/2019注释Demo3 04/08/2019注释Demo4所有四个注释都在单个单元格中，我要删除。 ..

Answer 1

此代码执行您所描述的。 r.select语句仅用于帮助您逐步理解代码，一旦理解，应将其删除。

Option Explicit
Sub deleteRow()
Dim sh As Worksheet, r As Range, d As Variant
Set sh = ActiveSheet
Set r = sh.Range("A1")
While r <> ""
    r.Select 'remove this line
    d = DateSerial(CInt(Mid(r, 7, 4)), CInt(Mid(r, 4, 2)), CInt(Left(r, 2)))
    Set r = r.Offset(1, 0)
    If d > Date Then
        sh.Rows(r.Row - 1).Delete
    End If
Wend
End Sub