Question

我有一个代码可以将数据从一个工作簿复制到另一个工作簿。现在，我的目标工作簿中的第二列具有某种颜色格式，我需要将其应用到包含数据的最后一列。

这是查找最后一个非空列的代码段：

Dim rLastCell As Range
Set ws = ThisWorkbook.Sheets(DestName)

Set rLastCell = ws.Cells.Find(What:="*", After:=ws.Cells(1, 1), LookIn:=xlValues, _
LookAt:= xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, MatchCase:=False)

Dim LastCol As Long        
LastCol = rLastCell.Column      
MsgBox LastCol

所以，现在我想迭代并将格式从第二列粘贴到所有列，直到LastCol。任何帮助将不胜感激。

Answer 1

这是解决方案：

lCol = Cells(1, Columns.Count).End(xlToLeft).Column
MsgBox "Last Column: " & lCol

Dim x As Long 
Columns(2).Copy 
For x = 3 To LastCol 
    Columns(x).PasteSpecial Paste:=xlPasteFormats 
Next

仅通过迭代粘贴列格式

1 个答案: