返回列表 上一主題 發帖

[發問] 多個範圍選擇由變數取代

t8899

帖子
759 
主題
249 
精華
0 
積分
1021 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-11-14 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-4-10 16:08 | 只看該作者

[發問] 多個範圍選擇由變數取代

原本錄下的巨集為
Range("A20:N1200,U20:V1200,Z20:Z1200,AE20:AF1200,AJ20:Ak1200,AM20:AP1200").Select
    Selection.Copy
---------------------------------------------------------------------
最後的1200(row) 想由b欄 的最後row取代.
dim bb
Set bb = Range("b65536").End(xlUp).Offset(0)
CC = bb.Row
接下的語法是??
收藏 分享

t8899

帖子
759 
主題
249 
精華
0 
積分
1021 
點名
0  
作業系統
windows 11 
軟體版本
OFFICE2021 
閱讀權限
50 
性別
男 
註冊時間
2011-5-30 
最後登錄
2024-11-14 
2#
發表於 2015-4-10 21:33 | 只看該作者
已解決 用 Union
With Sheets("Sheet6")
Dim bb, d, e, F, G, H, I
Set bb = .Range("b65536").End(xlUp).Offset(1)
CC = bb.Row
Set d = .Range("A20:N" & CC)
Set e = .Range("u20:v" & CC)
Set F = .Range("Z20:Z" & CC)
Set G = .Range("AE20:AF" & CC)
Set H = .Range("AJ20:AK" & CC)
Set I = .Range("AM20:AP" & CC)
End With
   Union(d, e, F, G, H, I).Copy

TOP

        靜思自在 : 能付出愛心就是福，能消除煩惱就是慧。
返回列表 上一主題