包括在同一个工作表

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")行 - 这可以删除。