复制范围并将它们存储在另一张纸上

-2

我认为这不是一项太困难的任务，但问题是我实际上对编程一无所知，而且我需要在当前工作上做到这一点。这是我的问题：复制范围并将它们存储在另一张纸上

问题是我必须开发一个宏，并将其分配给一个按钮，从页面1（sheet1）复制范围E3：K14并将其粘贴到第2页上的A1上（表2）。这个第一项任务很容易，但是如果我再次点击按钮的宏指令，它必须复制第1页中的相同范围并粘贴到第2页上，但是如果第一项操作必须检查是否已经粘贴了A1 ，如果有，那么它必须将它复制到单元格I1上，并且如果再次单击该按钮到Q1等等。

当粘贴范围时，必须粘贴“粘贴价值”选项。

如果有人可以只给我确切的代码（如有可能，有一些意见），我只是为了粘贴它会非常有帮助。

任何帮助将非常感谢！

来源

2013-05-29 user2433379

老兄，你可以使用此代码用数据获得最后一列，这是解决您的问题的关键。

Sub SelectLast() 
    Dim LastColumn As Long 
    With ActiveSheet 
    LastColumn = .Range("A1").SpecialCells(xlCellTypeLastCell).Column 
    End With 
    MsgBox LastColumn 

    Cells(18, LastColumn + 2).Select 
End Sub

来源

2013-05-30 14:23:37 Tabares

试试下面的代码：

Sub sample() 
    With Sheets("Sheet2") 
     Sheets("sheet1").Range("E3:K14").Copy .Cells(.Range("A" & .Rows.End(xlUp).Row) + 1, 1) 
    End With 
End Sub

enter image description here

说明：

是否使用了范围复制的方法和提供的目的地在哪里糊。
.Range("A" & .Rows.End(xlUp).Row) + 1检查在Sheet2的A列中最后使用的电池，并增加了1使数据粘贴在上次使用的行。（假设E栏没有空白单元格）

来源

2013-05-29 17:29:36 Santosh

它工作一次，但是当我点击它时，我们只是重写它，它也直接粘贴它们，所以有一个#REF！错误。 – user2433379

@ user2433379在'Range（“E3：K14”）“列中哪些列的值没有空白单元格？ – Santosh

我还在页面2（表2）的范围A2到G12上添加了一些随机数，以查看代码是否跳到列I1，但它将A21上的值粘贴到同一个#REF！错误。 – user2433379

复制范围并将它们存储在另一张纸上

回答

相关问题