用宏表函数：
选D1——菜单栏——公式——定定义 名称版块——定义名称——名称：
ABC
引用位置：=EVALUATE(C1)
——确定。
然后在D1输入：
=ABC
——回车并向下填充。
以excel2007及以上版本为例
选中D1，点击“公式”选项卡，再点击“名称管理器”，"新建“，名称中输入你喜欢的名字比如”计算“，”引用位置输入"
=EVALUATE($C1)
完成。
然后在D1中输入 =计算 (即您刚才起的名字）
请看动画演示
选择D1单元格，按Ctrl+F3，“自定义名称”中“新建”，定义名称：结果数据来源：=EVALUATE(!C1) 确定，完成自定义名称；然后在D1单元格输入=结果 并向下填充公式，即可；保存时，另存为“启用宏的工作簿”。
用下列的宏可以实现：
Sub 计算() For r = 1 To Cells(Cells.Rows.Count, 3).End(xlUp).Row If Cells(r, 3) <> "" Then Cells(r, 4).FormulaR1C1 = "=1*" & Cells(r, 3) End If Next rEnd Sub
在D列中用公式=“=” & C1然后选中D列，查找=，替换=