Excel 将行移动到下一个选项卡
我一直在尝试将“已完成”的项目从一个选项卡移动到下一个选项卡。我成功地让他们搬过来了。然而,他们将进入我的第二行(在我的标题下)并删除那里的内容。我如何移动它并将其添加到已经存在的内容中,而不是删除该行并替换它?这是我正在使用的代码:Excel 将行移动到下一个选项卡,excel,newline,vba,Excel,Newline,Vba,我一直在尝试将“已完成”的项目从一个选项卡移动到下一个选项卡。我成功地让他们搬过来了。然而,他们将进入我的第二行(在我的标题下)并删除那里的内容。我如何移动它并将其添加到已经存在的内容中,而不是删除该行并替换它?这是我正在使用的代码: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 8 Then If Target = "Yes" Then Application.EnableEvents
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 8 Then
If Target = "Yes" Then
Application.EnableEvents = False
nxtRow = Sheets("ClosedProjects").Range("I" & Rows.Count).End(xlUp).Row + 1
Target.EntireRow.Copy _
Destination:=Sheets("ClosedProjects").Range("A" & nxtRow)
Target.EntireRow.Delete
End If
End If
Application.EnableEvents = True
End Sub
对于
nxtRow
的计算,您使用的是列I
,因此您需要确保此列是laways在目标工作表中拥有数据的列。否则,请选择验证此属性的列。列I是否为空?也许可以使用“H”
,因为这是您正在测试的专栏,肯定会有价值。非常感谢大家!我知道我在某处犯了一个简单的错误!我不知道我是怎么得到“I”而不是“H”的,但这解决了它!