作者ClubT (在某种意义上 我应该很正)
看板Visual_Basic
标题Re: [VBA ] Range Copy with offset
时间Mon Mar 14 11:44:41 2011
※ 引述《nosrep (真相)》之铭言：
: Hello,
: 我想要将 sh1 B(x)-ED(x) 的Range拷贝到 sh2 某一栏,
: 不过我 sh2 的位置可能会有offset,所以未必固定是从 B 开始,
: 我会透过一个公式算出,差几个 Column 开始 Copy
: 在 VBA要怎麽达到?...还是我只能一个Cell去 Copy ?
: Worksheets(sh1).Range("B" & (Row + 2) & ":ED" & (Row + 2)).Copy
: Worksheets(sh2).Range("B" & newrow & ":EF" & newrow)
: ^^^ =>可能是变数 ^^^ =>也是要跟着变化
只需一行就能做到
Dim LS,LE As String 'LS起始行 LE结束行
Dim rs,RE As Integer 'rs起始列 RE结束列
Worksheets(1).Range(LS + CStr(rs) + ":" + LE + CStr(RE)).Copy Destination:= _
Worksheets(2).Cells(height, L)
ex: Worksheets(1).Range("B1:C2").Copy Destination:=Worksheets(2).Cells(2,1)
将第1页 Range B1~C2 复制到 第1页的 A2 的 Cell
--
我的P2个板 自然就是美 倾听‧自然之美
NB_COLSPRING 科技 Σ 冷 泉 港 >生命孕育地，海洋之心
ClubT [风]
有空可以来逛逛^_^
Blog:
http://www.wretch.cc/blog/ClubT http://clubtblog.blogspot.com
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 220.136.54.70