包括在同一個工作表

Question

Jeeped格式到相鄰列的可變數目的拷貝整列友情提供以下with..end與溶液以複製一個柱（柱C）的次數進行相同的工作表內的可變數目。但是，代碼會覆蓋列C並且不會複製這些格式。我試圖調整代碼，但不成功。 任何援助將不勝感激。

Dim rangeCopy As Range 
Dim Addcol As Integer 

Set rangeCopy = sht02AnalysisSummary.Range("C:C") 

Addcol = NrEvaluated '(the variable taken from userform input) 

With sht02AnalysisSummary 
    Set rangeCopy = .Range(.Cells(3, "C"), .Cells(.Rows.Count, "C").End(xlUp)) 
    rangeCopy.Copy Destination:=.Cells(3, .Columns.Count).End(xlToLeft).Resize(rangeCopy.Rows.Count, Addcol) 
End With 

Answer 1

以下的調整有效的「向右移動一個單元格」它的發現在最右邊的列後：

rangeCopy.Copy Destination:=.Cells(3, .Columns.Count).End(xlToLeft).Offset(0, 1).Resize(rangeCopy.Rows.Count, Addcol) 

交換爲您現有的rangeCopy.Copy線以上了。

此外，您不需要保留第一個Set rangeCopy = sht02AnalysisSummary.Range("C:C")行 - 這可以刪除。