Question

您好我希望能够在＆＃34; PrintSheet＆＃34;中输入行号。单元格G15并从＆＃34; Log＆＃34;复制指定的编号行。在＆＃34; PrintSheet＆＃34;上排了第40行，我已经尝试了这个以及许多其他代码，但没有做我所需要的，这一个一直停在：

Sheets(“Log”).Rows(15).EntireRow.Copy

但不确定原因

我的代码

Sub GetOrder()
    Dim val As Integer

    val = Sheets("PrintSheet").Range("G15")

    Sheets(“Log”).Rows(15).EntireRow.Copy

    Sheets("PrintSheet").Range("A40").Select
    Sheets(“PrintSheet”).Paste

End Sub

Answer 1

首先，您使用的是”而不是"。

其次，复制＆gt;＆gt;粘贴是一行命令，在粘贴之前无需Select范围。

第三次，以及为什么您收到帖子中提到的错误的答案，要复制您可以使用的整行：

Sheets("Log").Rows(15).Copy

或

Sheets("Log").Range("A15").EntireRow.Copy

最后，您需要在副本中使用单元格“G15”val中的行值，因此它应为Sheets("Log").Rows(val).Copy。

<强> 代码

Option Explicit

Sub GetOrder()

    Dim val As Long

    val = Sheets("PrintSheet").Range("G15").Value

    ' copy >> paste is 1-line command
    Sheets("Log").Rows(val).Copy Destination:=Sheets("PrintSheet").Range("A40")

End Sub

根据行号将第1行复制到第2页

1 个答案: