返回列表 上一主題 發帖

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

starry1314
　暱稱: 豪

高中生Rank: 3Rank: 3

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

        靜思自在 : 做好事不能少我一人，做壞事不能多我一人。
返回列表 上一主題