用数据切割行并移动到不同的工作表VBA

我试图剪切一个具有指定单元格的行，然后将其粘贴到同一工作簿中的另一个工作表中。 我的编码工作正常删除行，但一切我试图剪切和粘贴不断给我错误。 以下是删除行的工作代码：

Sub Remove() 'Remove No Denovo &/or No Peak Seq Dim n As Long Dim nLastRow As Long Dim nFirstRow As Long Dim lastRow As Integer ActiveSheet.UsedRange Set r = ActiveSheet.UsedRange nLastRow = r.rows.Count + r.Row - 1 nFirstRow = r.Row For n = nLastRow To nFirstRow Step -1 If Cells(n, "G") = "" Then Cells(n, "G").EntireRow.Delete Next n End Sub 

谢谢你的帮助！

Answer 1

如果你想剪切和粘贴，请看下面：

 With Sheet1 .Range("A1").Cut Sheeet2.Range("A1") End With 

在Sheet1中单元格A1中的剪切值以上并粘贴到Sheet2的单元格A1上。
现在，如果你想把它合并到你的代码中，请看下面。

 Dim i As Long: i = 1 With Activesheet For n = nLastRow To nFirstRow Step -1 If .Cells(n, "G") = "" Then .Cells(n, "G").EntireRow.Cut Sheet2.Cells(i, "A") .Cells(n, "G").EntireRow.Delete '~~> if you want to delete i = i + 1 End If Next End With 

上面的代码将G中的单元格的所有行剪切为空白，并将其粘贴到Sheet2中，从A1开始。
注意：我上面使用的Sheet2和Sheet1是表单代号。