复制范围工作表1粘贴到活动单元格工作表2

Question

>

sheet1:用户单击运行VBA的按钮。

第2:VBA选择第D列上的第一个非空白单元格

Range（“d”&rows.count).end(xlUp).offsed(1).select

Worksheets("Results").ActiveCell.PasteSpecial xlPasteValues

多谢！

Answer 1

您的代码可能需要一些改进，但为了保持您的代码并使其工作，我会将命令的顺序更改为此，看看这是否适用于您。

1. SHEET1:用户单击运行VBA的按钮。
2. SHEET1:VBA复制一系列值
3. 工作表（“sheet1”）。范围（“e2:aj11”）。复制

然后转到第2页

null

Range("D" & Rows.Count).End(xlUp).Offset(1).pastespecial xlpastevalues

Sub Copy()

Dim LastRow As Long
Dim Results As Worksheet

    Set Results = Sheets("Results")
    LastRow = Results.Cells(Results.Rows.Count, "D").End(xlUp).row

    Range("E2:AJ11").Copy
    Results.Range("D" & LastRow + 1).PasteSpecial xlPasteAll

    Application.CutCopyMode = False
End Sub