粘贴位置范围的问题

嗨，我有一个代码，根据给定的标准复制列并粘贴到另一个表。 我想更改粘贴位置，从而开始粘贴从"C5" WF-4 CC with Values表，但我无法这样做。 它给出了select方法失败的错误。 需要一些帮助，我可以如何更改粘贴范围的位置。 谢谢:)这是代码：

 Sub ExtractCCData4() Dim lastcol As Long Dim j As Long With Worksheets("WF - L4") lastcol = .Cells(5, Columns.Count).End(xlToLeft).Column For j = 3 To lastcol If Application.WorksheetFunction.Sum(.Columns(j)) > 0 Then .Columns(j).Copy Destination:=Worksheets("WF-4 CC with Values").Columns(j) Else End If Next End With End Sub 

Answer 1

在OP的澄清后编辑

我假设

• “应该从”C5“开始粘贴意味着它从”C5“向右无缝地粘贴而不考虑”WF-L4“列跳过

• 你只需要粘贴值

然后试试这个

 Option Explicit Sub ExtractCCData4() Dim lastcol As Long Dim j As Long, jPaste As Long Dim rngToCopy As Range With Worksheets("WF - L4") lastcol = .Cells(5, .Columns.Count).End(xlToLeft).Column For j = 3 To lastcol If Application.WorksheetFunction.Sum(.Columns(j)) > 0 Then Set rngToCopy = .Range(.Cells(1, j), .Cells(.Rows.Count, j).End(xlUp)) Worksheets("WF-4 CC with Values").Range("C5").Offset(, jPaste).Resize(rngToCopy.Rows.Count).Value = rngToCopy.Value jPaste = jPaste + 1 '<~~ updating column offsetting from "WF - L4" sheet column "C" Else End If Next End With End Sub