VBA复制/粘贴单元格内容（错误13）

Question

我正在使用Excel 365，并尝试在VBA中复制单元格内容。
在下面的公式中，我得到一个错误13，因为目标的类型为'Variant / Integer'，而源的类型为'Variant / String'：

ActiveSheet.Cells(NewRow, ColumnCounter).Value = ActiveSheet.Cells(CurrentRow, ColumnCounter).Value

我该如何解决？为什么（新插入的行中的）目标单元格突然格式化为整数？

如果我也尝试：

tbl.ListRows(CurrentRow).Range.Copy
Set NewRow = tbl.ListRows.Add(TargetRow)
NewRow.Range.PasteSpecial xlPasteValuesAndNumberFormats

我得到了错误：

  

1004：粘贴范围类的特殊方法失败

Answer 1

打开一个全新的Excel，然后尝试以下操作：

Public Sub HereComesTheCode()

    Dim a As Long: a = 1
    Dim b As Long: b = 2
    Dim c As Long: c = 3
    Dim d As Long: d = 4

    ActiveSheet.Cells(a, b).Value = ActiveSheet.Cells(c, d).Value

End Sub

然后检查代码中ColumnCounter，CurrentRow和NewRow中的值是什么。