帶偏移量的VBA宏

Question

我正試圖爲每天在工作中使用的工作表創建一個簡單的宏。

基本上它是關於：

表1個細胞A2：A11中有值的那些值需要被複制粘貼到片2具有偏移的每一天到下一個無柱。

到目前爲止我所得到的複製粘貼有一個偏移量......但我不知道如何說偏移量應該發生在下一個空白欄。

Dim rng As Range 
Dim ws As Worksheet 

Range("A2:A11").Select 
Selection.Copy 
Sheets("Sheet2").Select 
If rng Is Nothing Then 
    'if nothing found - search for last non empty column 
    Set rng = ws.Range("2:2").Find(What:="*", LookAt:=xlWhole, MatchCase:=False, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious) 
    If rng Is Nothing Then 
     Set rng = rng.Offset(, 1) 
     ActiveSheet.Paste 
    End If 

Answer 1

如果我理解正確，儘量只使用這個，而不是當前的所有代碼

Range("A2:A11").Copy Sheets("Sheet2").Cells(2, Columns.Count).End(xlToLeft).Offset(, 1) 

Answer 2

Set rng = rng.End(xlToRight).Offset(0, 1)
你一路走右側，然後再來一個下一個無柱。