Question

我有一个宏，它将一个工作表中的值粘贴到另一个工作表（controlos->数据库）中，从而填充了第一行未填充的行，并且大多数情况下都可以正常工作。但是，它不会将值从工作表1（控件）上的单元格D10复制并粘贴到D列上最后一个未填充的单元格。据推测，这样做之后，它将清除第一张纸上的单元格以进行另一张纸的套准。有问题的部分：

*Sheets("controlos").Select
    Range("D10").Select
    ActiveSheet.Paste
    Selection.Copy
    Sheets("database").Select
    Range("D1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste
    Sheets("controlos").Select*

Answer 1

以下代码是从工作表1，范围A1到工作表2范围A1复制粘贴的简单方法：

Option Explicit

Sub test()

    Dim ws1 As Worksheet, ws2 As Worksheet

    With ThisWorkbook

        Set ws1 = .Worksheets("Sheet1")
        Set ws2 = .Worksheets("Sheet2")

        ws1.Range("A1").Copy ws2.Range("A1")

    End With

End Sub

宏未粘贴值

1 个答案: