將復制的單元格從一張紙插入另一張紙

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）