在 vba 宏中复制单元格值后自定义值答案

【问题标题】：Customize value after copying the cell value in vba macros在 vba 宏中复制单元格值后自定义值
【发布时间】：2016-07-15 15:32:12
【问题描述】：

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

例如：

Sheet1 --> 单元格(A1) 中的值 = 10 单元格中的值（B1）= 20 单元格中的值（c1）= 30

现在复制这些单元格的值并粘贴为所需的格式，例如， Cell(D1) 值应该是这样的 ->

f(10),b(20),x(30),总计 = 60

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

谢谢。

【问题讨论】：

到目前为止你有什么代码？
Range("A1:C1").Select Selection.Copy Range("D1").Select ActiveSheet.Paste
以上是我知道的唯一可以复制和粘贴但不知道格式化的代码格式。
以代码格式放置内容，您在行首放置 4 个空格
Range("A1:A2").Select Selection.Copy Range("C3").Select ActiveSheet.Paste

标签： vba excel macros

【解决方案1】：

试试这个

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

【讨论】：

非常感谢@user3598756 的回复。我会试试看。
@Zanxzan：你熬过去了吗？

【解决方案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

基于您的示例的结果：

【讨论】：

非常感谢@Robert Mearns