返回列表 上一主題 發帖

[發問] 往上選取儲存格

霸氣走全身
　暱稱: 加菲貓

中學生Rank: 2

帖子
36 
主題
16 
精華
0 
積分
177 
點名
0  
作業系統
Xp 
軟體版本
offICE2003 
閱讀權限
20 
性別
女 
註冊時間
2010-8-23 
最後登錄
2021-7-20 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2011-6-18 19:19 | 只看該作者

[發問] 往上選取儲存格

請問大大
下面這段Range("F2000:R2100").Select
如何修改
選取的儲存格在F欄位至R欄位
由下往上選取一百列作複製選擇性再貼上
但每天會有資料KEY入，所以如何作修改
謝謝了
:Q
  1. Sub 按鈕1158_Click()

  3.       Range("F33333").Select
  4.       Selection.End(xlUp).Select
  5.       Range("F2000:R2100").Select
  6.            Selection.Copy
  7.         Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  8.         :=False, Transpose:=False
  9.     Range("B33333").Select
  10.     Selection.End(xlUp).Select
  11. End Sub
複製代碼
收藏 分享

chin15

帖子
227 
主題
3 
精華
1 
積分
273 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
性別
女 
註冊時間
2011-3-22 
最後登錄
2013-1-29 
2#
發表於 2011-6-18 22:36 | 只看該作者
n = [f65536].End(3).Row
Range("f" & n - 99).Resize(100, 13).Select

TOP

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。
返回列表 上一主題