返回列表 上一主題 發帖

[發問] 儲存格往下貼上

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
1# 跳轉到 »
發表於 2012-4-1 18:45 | 顯示全部帖子
回復 4# g93353

ActiveSheet.[a1:b5].Copy [a65536].End(3)(2)

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
2#
發表於 2012-4-5 19:04 | 顯示全部帖子
回復 6# c_c_lai

         [a65536].End(3)(2)
等同於[a65536].End(xlup).offset(1,0)

須分2部份解釋
1.[a65536].End(3)=[a65536].End(xlup)
   由a65536往上(xlup)找到第1個不為空值的儲存格,即a5
2.Range("a1:b3")(1)=Range("a1")
   Range("a1:b3")(2)=Range("b1")
   Range("a1:b3")(3)=Range("a2")
   Range("a1:b3")(4)=Range("b2")
   故Range("a5")(2)=Range("a5").offset(1,0)=Range("a6")

TOP

        靜思自在 : 自己害自己，莫過於亂發脾氣。
返回列表 上一主題