Excel宏复制值从一行到另一行而不覆盖目标行中的公式

Question

我正在尝试创建一个将数据从当前月份行复制到底部的宏。当前月份行在单元格中有链接，因此在刷新时，日期和数据将在新月份（9月16日）更改，但在刷新之前，请将数据复制到下面的匹配月份。余额列在每个单元格中有一个公式（总数 - 金额）。如何仅复制值，而不覆盖平衡单元格中的公式。

这是我的代码

Sub CopyData()
Dim compareValue As String
Dim comparingValue As String
Dim i As Long
compareValue = Cells(2, 2).Value

For i = 3 To Rows.Count
    comparingValue = Cells(i, 2).Value
    If compareValue = comparingValue Then
        Sheets("Sheet1").Range("C2:J2").Copy
        lRow = Range("C" & Rows.Count).End(xlUp).Row
         Range("C" & lRow + 1, "J" & lRow + 1).PasteSpecial xlPasteValues
    End If
Next i
End Sub

Answer 1

使用直接价值转移。

with worksheets("Sheet1").cells(i, "C").resize(1, 8)
    worksheets("another sheet").cells(rows.count, "C").end(xlup).offset(1, 0).resize(1, 8) = .value
end with