Question

我正在尝试使用一个宏按钮，一旦点击复制一组数据A3：E22从表1到A3：E22在表3上。复制之后，我希望清除表1中的数据以便我可以开始在刚刚清除的单元格中输入新数据。

我无法将纸张3上的数据向下移动，因此一旦我重复将数据从纸张1复制到纸张3的循环，我先前在纸张3上复制的数据将自动向下移动并继续向下移动只要我重复复制周期。

是否有一组代码可以编程到我的按钮，用于从第1页到第3页的复制周期，以便第3页上的数据自动向下移动？

14年11月5日我已经尝试了回复中的代码，它在新工作簿上运行得很好，但是我将此代码转移到现有工作簿时遇到了问题。我不断收到“下标范围”错误，其中“设置S1 ......”。我是否需要重命名我的工作表或调用S1不同的东西来引用工作表1？我是编码的新手，所以任何帮助都会非常感激。谢谢

Answer 1

以下是一些典型代码：

Sub TransferData()
    Dim s1 As Worksheet, s3 As Worksheet
    Dim r1 As Range, r3 As Range
    Set s1 = Sheets("Sheet1")
    Set s3 = Sheets("Sheet3")
    Set r1 = s1.Range("A3:E22")
    Set r3 = s3.Range("A3:E22")

    s3.Activate
    r3.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Set r3 = s3.Range("A3:E22")

    s1.Activate
    r1.Copy r3
    r1.Clear
End Sub

使用按钮在同一单元格中复制新数据后自动向下移动数据？

1 个答案: