Re: [VBA ] Range Copy with offset

[jonher (jonher)]

※ 引述《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
推 nosrep:先感謝高手!