標題: [發問] 複製儲存格:A的值, 並貼在儲存格C (C = 指定儲存格B經按下ctrl+下後的下方一格) [打印本頁]

---

作者: andrew12372    時間: 2015-7-20 17:03     標題: 複製儲存格:A的值, 並貼在儲存格C (C = 指定儲存格B經按下ctrl+下後的下方一格)

請問一下 我想要將

Sheets("資料處理頁面") 中的 B2儲存格的值
複製貼上到
Sheets("主頁面") 中的 Z2儲存格按下ctrl + 下 的下面一格
(用途: 自動向下登錄資料)

請問各位專家該如何寫呢?

Sheets("資料處理頁面").Range("B2").Copy
Sheets("主頁面").Range("Z2").End(xlDown).Offset(1, 0).PasteSpecial xlPasteValues

目前嘗試這樣子沒辦法執行

感謝回覆!

---

作者: starry1314    時間: 2015-7-20 17:29

回復 1# andrew12372


    Sub ex()

    Sheets("資料處理頁面").Range("b2").Copy '搜尋要複製的資料格
    Set wsTarget = Sheets("主頁面") '要貼上的活頁
        lTargetRow = wsTarget.Cells(Rows.Count, "Z").End(xlUp).Row + 1 'Z欄最後一列資料+1
        wsTarget.Cells(lTargetRow, "Z").PasteSpecial Paste:=xlPasteValues '在上列Z欄+1後資料的列數,再Z欄開始貼上
End Sub

---

作者: andrew12372    時間: 2015-7-20 17:39

回復 2# starry1314


   
感謝starry1314,

又學到一招了!!

謝謝你!!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)