Question

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

[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从工作表（“模板”）复制到工作表（“ project_tracker”）B列中的第一个空单元格

我希望有人能帮助我。

亲切的问候，

本杰明

Answer 1

如果您想要值，请进行值转移而不是复制，如下所示：

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

将值单元格工作表复制到另一列中的第一个空单元格，没有公式副本，仅显示

1 个答案: