在vba宏

Question

我想连续复制多个单元格并以自定义格式粘贴。

例如：

  

Sheet1 - ＆gt;单元格中的值（A1）= 10              单元格中的值（B1）= 20              单元格中的值（c1）= 30

现在复制这些单元格的值并粘贴到所需的格式，如， 单元格（D1）值应该是这样的 - ＆gt;

  

f（10），b（20），x（30），总计= 60

如果无法使用复制/粘贴方法，还有其他方法吗？

感谢。

Answer 1

试试这个

With Worksheets("Sheet1")
    .Range("D1") = "f(" & .Range("A1") & "),b(" & .Range("B1") & "),x(" & .Range("C1") & "),total = " & WorksheetFunction.Sum(.Range("A1:C1"))
End With

Answer 2

这是一种传递一系列值和输出目标范围的方法。

Sub CreateSummary()

Dim x() As Variant
Dim y As Range

    x = Range("A1:C1")
    Set y = Range("D1")

    y = "f(" & x(1, 1) & "),b(" & x(1, 2) & "),x(" & _
     x(1, 3) & "),total = " & WorksheetFunction.Sum(x)

End Sub

结果基于您的示例：