Excel 如何删除刚刚剪切的行&；粘贴到另一张纸上

我有一个代码，它将行剪切并粘贴到第二张表中，其中有一个单元格包含“Yes”

如何从源工作表中删除剩余的空行

选项显式
子副本\u n\u粘贴（）
出错时继续下一步
Dim srchtrm作为字符串
变暗rng为范围，减小行程为长度
尺寸shtSrc作为工作表，shtDest作为工作表
调光范围
作为整数的Dim i
今天黯淡如白昼
应用
.ScreenUpdate=False
.DisplayStatusBar=False
.Calculation=xlCalculationManual
.EnableEvents=False
以
设置shtSrc=图纸（“文件”）
设置shtDest=工作表（“存档”）
destRow=工作表（“存档”）.UsedRange.Rows.Count
设置rng=Application.Intersect（shtSrc.Range（“R2:R1000”）、shtSrc.UsedRange）
对于每个c In rng.单元格
如果c.Value=“是”，则
c、 全行程剪切shtDest.单元格（destRow，1）
destRow=destRow+1
如果结束
下一个
应用
.ScreenUpdate=True
.DisplayStatusBar=True
.Calculation=xlcalculation自动
.EnableEvents=True
以
Application.CutCopyMode=False
图纸（“文件”）。范围（“A1”）。选择
端接头

这将删除整行：

c.EntireRow.Delete

不过，在循环内部要小心。这里有一个更深入的讨论：

旁注-查看查找最后一行并避免使用

UsedRange

的更好方法。