关于excel中用vba的问题

Question

1.我如何使用求和函数：我想通过一个if语句，if(sum（$A$1:$C$1)/($B$1)) then
但是不能用，是不是职能在formula中才能用？
2.我sheet1中带有公式的单元格复制到sheet2中，我想利用
Range(VBA.Chr(67 + col1) & VBA.Trim(Ran2 + 2)).Copy Destination:=Worksheets("Sheet2").Range(ab)
里面有一些变量，用copy好像不能复制带有公式的单元格，复制后为0？可以解决吗？

Answer 1

你的if语句中好象没有条件呀例如if(sum（$A$1:$C$1)/($B$1))>1 then 可以吗?我也不知道你的具体的意思

Answer 2

我是说没有sum这个函数可用，在vba中

Answer 3

1.if Application.WorksheetFunction.Sum (Range("$A$1:$C$1")) / Range("$B$1")
2.如你不想让EXCEL智能调整你的公式，可以如下：
Worksheets("Sheet2").Range(ab).Formula=Range(VBA.Chr(67 + col1) & VBA.Trim(Ran2 + 2)).Formula

Answer 4

对于第二个问题我不是想把公式复制到第sheet2中，我是想把值复制过去，而Worksheets("Sheet2").Range(ab).Formula=Range(VBA.Chr(67 + col1) & VBA.Trim(Ran2 + 2)).Formula  只能把公式复制过去，值还是0

Answer 5

那更简单了
("Sheet2").Range(ab)=Range(VBA.Chr(67 + col1) & VBA.Trim(Ran2 + 2))