作者jonher (jonher)
看板Visual_Basic
标题Re: [VBA ] Range Copy with offset
时间Wed Mar 9 22:02:20 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 Cel As Range
Dim Rng As Range
Dim rr As Integer
Dim cc As Integer
Dim dx As Integer
Dim dy As Integer
rr = 3
cc = 2
dx = 1
dy = 4
Set Cel = Cells(rr, cc) '"B3"
Set Rng = Range(Cel, Cel.Offset(dx, dy)) ' "B3:F4"
Rng.Select
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 180.218.46.241
1F：推 nosrep:先感谢高手! 03/10 10:08