D列中有一千多个数据，编一个vba程序，把d列中

D列中有一千多个数据，编一个vba程序，把d列中，内容为"(我爱中国)"的整行删除。[]代表单元格里面的内容。例如：D1[gfdgfd]，A1[DFS],D2[3243],A2[43534534],D3[我爱中国]，A3[213],D4[sfesrf],A4[F43FG],D5[我爱中国]，A5[FSFRWE],D6[我爱中国],A6[WQFD]。运行代码后变成D1[我爱中国],A1[213]，D2[我爱中国],A2[FSFRWE],D3[我爱中国]，A3[WQFD]。
            A列                              D列                                                                      A 列                           D列
           DFS                                 gfdgfd                                                               213                             我爱中国
           43534534                         3243                                                               FSFRWE                      我爱中国
           213                                 我爱中国                                                              WQFD                            我爱中国
          F43FG                             sfesrf  
       FSFRW                            我爱中国
           WQFD                              我爱中国

Sub aa()
arr = Range("d1", [d65536].End(3))
For i = UBound(arr) To 1 Step -1
If arr(i, 1) = "我爱中国" Then Rows(i).Delete
Next
End Sub

我尝试，失败了

请上传你的附件

请看附件：按你的代码，只删了一些

这个附件才对，5楼的附件错的

没看到“我爱中国”呀。。。。

不要(编号未生成)的

2楼的代码应可以，那个字你自己改一下。。。。

你的附件和你的描述不符