基于单元格值复制区域至其他工作表后删除原工作表整行求助

一、删除指定数据区域 #

如果你已经确定了要删除的原数据区域（比如之前用来复制的SourceRange），直接调用Delete方法即可，记得指定偏移方向：

' 假设SourceRange是你复制过的原数据区域
SourceRange.Delete Shift:=xlUp ' 上方行上移填补空白，适合行方向删除
' 或者如果是列方向需要删除，用：
' SourceRange.Delete Shift:=xlShiftToLeft

二、删除对应整行 #

如果需要删除该区域所在的全部整行，不用单独选区域，直接调用EntireRow属性：

' 删除SourceRange覆盖的所有整行
SourceRange.EntireRow.Delete Shift:=xlUp

三、循环处理时的注意事项 #

如果是批量循环处理多行/多区域，一定要从下往上倒序循环——因为删除行后，下方的行号会自动上移，正序循环会导致漏删：

Dim lastRow As Long, firstRow As Long, nextRow As Long
lastRow = Sheets("源表").Cells(Rows.Count, "A").End(xlUp).Row
firstRow = 2 ' 假设表头在第1行
nextRow = Sheets("目标表").Cells(Rows.Count, "A").End(xlUp).Row + 1

' 倒序循环删除
For i = lastRow To firstRow Step -1
    ' 复制行到目标表
    Sheets("源表").Rows(i).Copy Destination:=Sheets("目标表").Range("A" & nextRow)
    ' 删除原表该行
    Sheets("源表").Rows(i).Delete Shift:=xlUp
    nextRow = nextRow + 1
Next i

四、表格（ListObject）场景的优化 #

如果你的数据是Excel结构化表格（ListObject），直接操作表格行更稳定：

Dim tbl As ListObject
Set tbl = Sheets("源表").ListObjects("Table1") ' 替换成你的表格名称

' 复制指定行到目标表
tbl.ListRows(3).Range.Copy Destination:=Sheets("目标表").Range("A2")
' 删除原表格中的该行
tbl.ListRows(3).Delete

内容的提问来源于stack exchange，提问作者Chad A.