返回列表 上一主題 發帖

[發問] xlup 問題..

jomeow

帖子
77 
主題
11 
精華
0 
積分
96 
點名
0  
作業系統
windows xp 
軟體版本
OFFICE 2010 
閱讀權限
20 
性別
女 
註冊時間
2012-8-29 
最後登錄
2023-10-30 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2014-12-16 15:23 | 只看該作者

[發問] xlup 問題..

想請教各位大大... 如果 column C:D 有11行的資料..  我想把range C1:D11 copy到另一張工作表作為backup...
而column A 我用了FORUMULA來自動填上年份.. 所以有資料的地方會由A1至B21..
請問我要怎樣使用End(xlUp).row 才可以取最後一行資料為ROW11而不是ROW21呢..

謝謝賜教!!

xlup.rar (7.28 KB)

收藏 分享

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 2014-12-17 06:40 | 只看該作者
回復 3# jomeow
試試看
  1. Sub test()
  2.     Range("c1", [d1].End(xlDown)).Copy Sheets("backup").Range("A1")
  3. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

ashan0418

帖子
59 
主題
5 
精華
0 
積分
75 
點名
151  
作業系統
xp 
軟體版本
2003 
閱讀權限
20 
性別
男 
來自
基隆 
註冊時間
2012-7-5 
最後登錄
2025-6-10 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章
2#
發表於 2014-12-16 16:26 | 只看該作者
回復 1# jomeow


我的積分不足以下載附件，所以依您的題意來猜測您的需求，試試看囉!!
  1. Sub test()
  2.     Range("c1:D" & [d65535].End(xlUp).Row).Copy
  3.     Sheets("backup").Select
  4.     [a1].Select
  5.     ActiveSheet.Paste
  6. End Sub
複製代碼

TOP

        靜思自在 : 人要自愛，才能愛普天下的人。
返回列表 上一主題