返回列表 上一主題 發帖

[發問] 把指定資料複製到不同的分頁的最後一列下面

yen956

帖子
522 
主題
36 
精華
1 
積分
603 
點名
0  
作業系統
win xp sp3 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2012-12-13 
最後登錄
2021-7-11 
1# 跳轉到 »
發表於 2014-5-13 19:09 | 顯示全部帖子
本帖最後由 yen956 於 2014-5-13 19:10 編輯

回復 1# pupai
是每次均將Sheet1 欄A 的資料, 全部備份到 Sheet2?
如果是, 試試這個
  1. Sub Command()
  2.     Dim sh1, sh2 As Worksheet
  3.     Dim lastRow1, lastRow2 As Integer
  4.    
  5.     Set sh1 = Sheets("Sheet1")
  6.     Set sh2 = Sheets("Sheet2")
  7.     lastRow1 = sh1.[A2].End(xlDown).Row
  8.     lastRow2 = sh2.[A65536].End(xlUp).Row
  9.    
  10.     '假定要複製的資料, 每次均從 sh1.[A2]開始
  11.     '將Sheet1 欄A 的資料, 全部備份到 Sheet2欄A最下面
  12.     sh1.[A2].Resize(lastRow1 - 1, 1).Copy sh2.[A2].Offset(lastRow2 - 1, 0)
  13. End Sub
複製代碼

TOP

        靜思自在 : 唯其尊重自己的人，才更勇於縮小自己。
返回列表 上一主題