Question

我一直致力于将代码从一个工作表复制并粘贴到另一个工作表。我需要复制的数据始终位于A1:E1，但是，我需要始终在下面粘贴一行。我会每天运行它，所以例如今天我粘贴在单元格A1:E1上，然后明天我需要粘贴A2:E2并在第二天A3:E3 ...我写了下面的代码可以工作，但不像我需要的那样动态。非常感谢您的帮助

谢谢

Sub Copy_range()

Worksheets("Dividends").Range("A1:E1").copy

Worksheets("Draft").Range("A1:E1").PasteSpecial
End Sub

Answer 1

这将通过跳过所有使用过的单元格然后粘贴下一个空单元格上的值来使其更加模块化。

Sub Copy_range()

    ' edit line below to change where data will be copied from
    Worksheets("Dividends").Range("A1:E1").Copy ' copy the value

    ' select the first cell on the "Draft" sheet
    Worksheets("Draft").Select
    ActiveSheet.Range("A1").Select

    Dim count As Integer
    count = 1

    'skip all used cells
    Do While Not (ActiveCell.value = None)
        ActiveCell.Offset(1, 0).Range("A1").Select
        count = count + 1

    Loop

    ' edit line below to change alphabetical values of where data will be placed
    Worksheets("Draft").Range("A" & count & ":E" & count).PasteSpecial ' paste the value
    ' at Acount:Ecount where count is the current row i.e. A11:E11

End Sub

如何复制和粘贴下面的一行

1 个答案: