Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/jpa/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 将行移动到下一个选项卡_Excel_Newline_Vba - Fatal编程技术网

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”的,但这解决了它!