複製範圍並將它們存儲在另一張紙上

-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

複製範圍並將它們存儲在另一張紙上

回答

相關問題