作者：乔山办公网日期：
返回目录：excel表格制作
Sub LF()
Range("B12").Formula = "=if(H2=C2,"""",""数据不一致"")"
'Cells(2, 12).Value = "=if(H2=C2,"""",""数据不一致"")"
End Sub
代码：
Sub m()
a = 10
Range("B1") = "=sum(" & a & ")"
End Sub
结果:
你是要运行 EXCEL工作度表函数还是要给知在VBA中给单道元格写公式
如果是回要用函数
applivation.worksheetfunction.
如果是要给格写公式 比如 B4＝A1+1
请用 答range("B4").Formula = "=A1+1"
Dim a As Double
a = 1
For i = 1 To 10
Cells(a, 9) = "=COUNTIF(H" & a + 1 & ":H" & a + 9 & ",H" & a & ")"
a = a + 1
Next