将值复制并粘贴到目标

Question

我正在使用昨天的信息将数据从一张表复制到另一张包含历史数据表的表。第一张表实际上是一个vlookup公式，所以我只需要将值粘贴到历史表中。这就是我写的，但是它说最后一行不起作用。有人可以帮忙吗？

Option Explicit


Sub Test()
'
' UpdateTablesAndCharts Macro
'
' Keyboard Shortcut: Option+Cmd+t
'


Dim lngNextEmptyRow As Long
Dim lngLastImportRow As Long
Dim shtYstrdy As Worksheet
Set shtYstrdy = ThisWorkbook.Worksheets("Yesterday")

With ThisWorkbook.Worksheets("ICT Historical Crashlytics Data")
lngNextEmptyRow = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
.Rows(lngNextEmptyRow).Insert Shift:=xlDown
.Cells(lngNextEmptyRow, "A").Value2 = _
    .Cells(lngNextEmptyRow - 1, "A").Value2 + 1
shtYstrdy.Range("AM1:AN1").Copy
    Cells("A" & lngNextEmptyRow).PasteSpecial xlPasteValues


End With

End Sub

Answer 1

1. Cells（）格式为function test() { console.log(this) }; test.test = test; test.test(); test.call(test); test.apply(test); test.bind(test)();您可能需要Range（）。

2. 当粘贴这些值时，直接分配它会更快。

3. Cells（）缺少前面的Cells(Rows,Column)，因此没有分配到正确的父表。

使用此：

.