复制范围包含一个公式并粘贴到第一个空白列

Question

我要复制范围并粘贴到第一个空白列中。

Sub Report()

Dim lRow As Long
Dim lCol As Long
Application.DisplayAlerts = False

Sheets("Chart").Select
Range("D9:D17").Select
Selection.Copy
Sheets("Report").Select
lCol = Cells(4, Columns.Count).End(xlToLeft).Column + 1
Range("lCol:lCol+9").Paste 

End Sub

我得到一个错误：

  

运行时错误'1004'：对象_global的方法范围失败

在此行：

Range("lCol:lCol+9").Paste

---

这是发生了什么

我选择复制的数据

粘贴在单元格中的内容

Answer 1

一个猜测，这应该可以解决您的问题Sub Report（）

Sub Report()

Dim lRow As Long
Dim lCol As Long

With Sheets("Report")
    lCol = .Cells(4, Columns.Count).End(xlToLeft).Column + 1
    Sheets("Chart").Range("D9:D17").Copy
    .Cells(4, lCol).pastespecial xlvalues
End With

End Sub