for循环中find函数没有找到结果，想继续下一轮循环，代码怎么改

maplecorn

才学了一点点VBA，现在自己在工作需要用，写了一段代码，find查找 0 的时候，该工作表第一列中如果没有0，我想继续下一轮循环，我该怎么改，求大佬指导怎么弄？
Sub 粘贴复制()
Dim SH As Worksheet, H As Integer, I As Integer
For Each SH In Sheets
   If SH.Name Like "*修改" Then
   H = SH.Columns(1).Find(0, , xlValues, xlWhole).Row - 1
   I = Sheets("汇总").Range("K65536").End(xlUp).Row + 1
   SH.Rows("2:" & H).Copy
   Sheets("汇总").Rows(I).PasteSpecial Paste:=xlPasteValues
   End If
Next
MsgBox "DONE!"
End Sub

liulang0808

set rn=SH.Columns(1).Find(0, , xlValues, xlWhole)
if not rn is nothing then
........
endif

maplecorn

liulang0808 发表于 2020-1-10 12:16
set rn=SH.Columns(1).Find(0, , xlValues, xlWhole)
if not rn is nothing then
........

好的，非常感谢