excel传递数据而不是公式到其他工作表

我试图从一张纸上收集数据（3组合I），并通过一个命令button将其传递给另一张纸（5 Gas I）中的一个单元。 这是我曾经尝试使用，但它取而代之的复制公式在单元格3组合我吗？

Private Sub CommandButton1_Click() Worksheets("3 Combined I").Range("e23").Copy Destination:=Worksheets("5 Gas I").Range("d10") End Sub 

Answer 1

请尝试

 Private Sub CommandButton1_Click() Worksheets("5 Gas I").Range("d10").value = Worksheets("3 Combined I").Range("e23").value End Sub 

你也可以尝试Range对象的PasteSpecial方法。
请参阅Excel VBA仅复制粘贴值（xlPasteValues）

更新

@nbayly推荐Range对象的Value2属性而不是Value属性。

 Private Sub CommandButton1_Click() Worksheets("5 Gas I").Range("d10").value2 = Worksheets("3 Combined I").Range("e23").value2 End Sub 

原因如下： .text，.value和.value2有什么区别？