Question

我想复制E列中具有特定值的所有行，然后在另一张工作表中插入它们（不是PASTE！所以我想在单元格A29处插入新行）。

我要复制的表单叫做＃34; owssvr＆＃34;我想要复制的那个被称为＆＃34; AOB批准表格＆＃34;。我想在＆＃34; AOB批准表格＆＃34;中插入从单元格A29开始的复制行。

当我运行代码时，没有任何反应。不会弹出任何错误消息。

我的代码定义如下： LastRow：＆＃34; owssvr＆＃34;的最后一行表

PrimaryAOB：我想在第5列中查找的值。它位于＆＃34; AOB审批表单＆＃34;片

这是我的代码：

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

我将您的代码复制到空白工作簿中的新模块中，然后制作必要的mod以使其运行（它确实如此）。它看起来和你的一样：

        DECLARE 
        @FormYear AS INT,
        @FormMonth AS INT,
        @ToYear AS INT,
        @ToMonth AS INT,
        @FromDate AS DATE,
        @ToDate AS DATE

        SET @FormYear=YEAR(DATEADD(DAY, -365, GETDATE()))
        SET @FormMonth=MONTH(DATEADD(DAY, -365, GETDATE()))

        SET @ToYear=YEAR(GETDATE())
        SET @ToMonth=MONTH(GETDATE())

        SET @FromDate= CAST(CAST(@FormMonth AS VARCHAR) +'-'+'01'+ '-' +CAST(@FormYear AS VARCHAR) AS DATE)
        SET @ToDate= CAST(CAST(@ToMonth AS VARCHAR) +'-' + '01'+'-' + CAST(@ToYear AS VARCHAR) AS DATE)

由于这种方法有效，在定义变量时，您可能在某处遇到了一些语法错误。向我们展示更多您的程序，这可能会揭示问题！另外，您是否逐行运行代码？（F8）

将复制的单元格从一个工作表插入到另一个工

1 个答案: