2016-07-15 101 views
0

我想复制一行中的多个单元格并将其粘贴到自定义格式中。复制vba宏中的单元格值后自定义值

例如:

工作表Sheet - >在细胞(A1)值=以小区(B1)10 值=在细胞(C1)20 值= 30

现在复制这些细胞的值,并粘贴在所期望的格式等, 细胞(D1)的值应该是这样的 - >

F(10),b(20)中,x(30),总= 60

如果复制/粘贴方法不可行,还有其他方法吗?

谢谢。

+0

你有什么代码,使远吗? – lewisthegruffalo

+0

范围(“A1:C1”)。选择 Selection.Copy 范围(“D1”)。选择 ActiveSheet.Paste – Zanxzan

+0

以上是唯一的代码格式我知道要复制和粘贴,但没有想法来格式化它。 – Zanxzan

回答

0

尝试这种

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

非常感谢你的回应@ user3598756。我会尝试。 – Zanxzan

+0

@赞克赞:你通过了吗? – user3598756

0

以下是在一个范围内的值和用于输出的目标范围通过的方式。

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 

结果根据您的例子:

screenshot of worked example

+0

非常感谢Robert Merrns – Zanxzan

相关问题