- 帖子
- 750
- 主題
- 245
- 精華
- 0
- 積分
- 1008
- 點名
- 0
- 作業系統
- WINXP
- 軟體版本
- OFFICE2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2011-5-30
- 最後登錄
- 2024-6-28
|
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 |
|
