Excel 将值单元格工作表复制到列中的其他第一个空单元格，不复制公式，只显示公式

目前，我有一个代码，可以将一个工作表中特定单元格的公式复制并粘贴到另一个工作表中，即列中的第一个空单元格。但是，复制这些单元格的公式而不是显示的图形时存在问题，请参阅以下代码：

[B3].Copy .Cells(.Rows.Count, "B").End(xlUp).Offset(1)
[C3].Copy .Cells(.Rows.Count, "C").End(xlUp).Offset(1)
[D3].Copy .Cells(.Rows.Count, "D").End(xlUp).Offset(1)
[E3].Copy .Cells(.Rows.Count, "F").End(xlUp).Offset(1)
[B5].Copy .Cells(.Rows.Count, "G").End(xlUp).Offset(1)
[E12].Copy .Cells(.Rows.Count, "H").End(xlUp).Offset(1)
[E24].Copy .Cells(.Rows.Count, "I").End(xlUp).Offset(1)

这将复制公式，我只想显示单元格的值（输出）。为了更好的解释：单元格B3从工作表（“模板”）复制到工作表（“项目跟踪”）B列中的第一个空单元格

我希望有人能帮助我

亲切问候,

---

Benjamin

如果您想要值，则执行值传输而不是复制，如下所示：

Sub CopyToTracker()

    Dim templateWS As Worksheet
    Dim trackerWS As Worksheet

    Set templateWS = ThisWorkbook.Sheets("Template")
    Set trackerWS = ThisWorkbook.Sheets("project_tracker")

    With trackerWS
        .Cells(.Rows.Count, "B").End(xlUp).Offset(1).Value = templateWS.Range("B3").Value
        .Cells(.Rows.Count, "C").End(xlUp).Offset(1).Value = templateWS.Range("C3").Value
        ' and so on
    End With
End Sub