将复制的单元格从一张纸插入另一张纸

Question

我想复制在E列中具有特定值的所有行，然后将它们插入（不要粘贴！所以我要在单元格A29处插入新行）在另一张纸上。

我要复制的工作表称为“ owssvr”，我要复制的工作表称为“ AOB批准表”。 我想在“ AOB批准表”中插入从单元格A29开始的复制行。

当我运行代码时，什么也没有发生。 没有错误消息弹出。

以下是我的代码的很少定义：LastRow：“ owssvr”工作表的最后一行

PrimaryAOB：我要在第5列中查找的值。它在“ AOB批准表”表上

这是我的代码：

For k = 2 To lastRow
    If Worksheets("owssvr").Range("E" & k).Value = primaryAOB Then
    Worksheets("owssvr").Rows(k).Copy
    Worksheets("AOB Approval Form").Rows(k + 27).Insert Shift:=xlDown
    Application.CutCopyMode = False
    End If
Next k

谢谢！

Answer 1

我将代码复制到空白工作簿中的新模块中，然后进行必要的修改以使其运行（确实如此）。 它看起来与您的相同：

Sub Question()
Dim k As long, lastRow As Long
Dim primaryAOB As String

lastRow = Sheets(1).Range("E" & (ActiveSheet.Rows.Count)).End(xlUp).Row
primaryAOB = Sheets(2).Range("A1").Text
For k = 2 To lastRow
    If Worksheets("owssvr").Range("E" & k).Value = primaryAOB Then
    Worksheets("owssvr").Rows(k).Copy
    Worksheets("AOB Approval Form").Rows(k + 27).Insert Shift:=xlDown
    Application.CutCopyMode = False
    End If
Next k
End Sub

由于这项工作有效，因此在定义变量时，您可能在某个地方出现了一些小语法错误。 向我们展示您的更多程序，可能会发现问题所在！ 另外，您是否逐行运行代码？ （F8）