複製vba宏中的單元格值後自定義值

Question

我想複製一行中的多個單元格並將其粘貼到自定義格式中。

例如：

工作表Sheet - >在細胞（A1）值=以小區（B1）10 值=在細胞（C1）20 值= 30

現在複製這些細胞的值，並粘貼在所期望的格式等， 細胞（D1）的值應該是這樣的 - >

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 

結果根據您的例子：