返回列表 上一主題 發帖

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

andrew12372

帖子
2 
主題
1 
精華
0 
積分
3 
點名
0  
作業系統
win7 
軟體版本
旗艦版 
閱讀權限
10 
註冊時間
2015-7-19 
最後登錄
2015-7-20 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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
　暱稱: 豪

高中生Rank: 3Rank: 3

帖子
471 
主題
121 
精華
0 
積分
579 
點名
0  
作業系統
WIN10 
軟體版本
OFFICE2019 
閱讀權限
50 
性別
男 
註冊時間
2015-4-16 
最後登錄
2023-1-17 
2#
發表於 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

TOP

andrew12372

帖子
2 
主題
1 
精華
0 
積分
3 
點名
0  
作業系統
win7 
軟體版本
旗艦版 
閱讀權限
10 
註冊時間
2015-7-19 
最後登錄
2015-7-20 
3#
發表於 2015-7-20 17:39 | 只看該作者
回復 2# starry1314


   
感謝starry1314,

又學到一招了!!

謝謝你!!

TOP

        靜思自在 : 改變自己是自救，影響別人是救人。
返回列表 上一主題