删掉EXCEL没有图片的那几行

附件

1.jpg(28.25 KB)

2011-8-10 23:34

图片

复制内容到剪贴板

代码:

Sub yyy()
For i = 1 To Range("a" & Cells.Rows.Count).End(3).Row
    If Cells(i, 1) = "No Photo" Then Rows(i).Delete Shift:=xlUp
Next
End Sub

附件

gggg.rar(6.34 KB)

2011-8-11 02:23, 下载次数: 1