Question

EXCEL中怎样用函数引用一个单元格内的公式?

例如,A1单元格内容为10,B1为100,C1为=A1*B1,D1公式=IF(A1="","",C1),怎样把C1用函数改成A1*B1,也就是D1改为=IF(A1="","",A1*B1),也就怎样把C1的公式引用过来?

Answer 1

提取公式用宏表函数GET.CELL，你在excelhome提过相同的问题，其实你要是搜索一下应该能自己解决的，善用搜索，多思考。
----------------------------------
点菜单，插入-名称-定义，名称栏填（任意）：tiqu，引用位置输入：=GET.CELL(6,Sheet1!$C$1)
，添加后就可以使用定义了
在D1输入：=IF(A1="","",tiqu)
试试看
---------------------以下内容转自excelhome论坛

Excel中隐藏函数Get.Cell的用法
Excel中有一些隐藏的函数，能够实现一些现有的函数无法实现的功能。其中一个很重要的函数就是Get.Cell。Get.Cell翻译过来也就是“得到单元格”的意思，作用是返回单元格中的格式信息。
函数定义: Get.Cell(类型号,单元格(或范围))
其中类型号，即你想要得到的信息的类型号，经试验，范围为1-66，也就是说这个函数可以返回一个单元格里66种信息。
以下是类型号及代表的意思
1——参照储存格的绝对地址
2——参照储存格的列号
3——参照储存格的栏号
4——类似 TYPE 函数
5——参照地址的内容
6——文字显示参照位址的公式
7——参照位址的格式，文字显示
8——文字显示参照位址的格式
9——传回储存格外框左方样式，数字显示
10——传回储存格外框右方样式，数字显示
11——传回储存格外框方上样式，数字显示
12——传回储存格外框方下样式，数字显示
13——传回内部图样，数字显示
14——如果储存格被设定 locked传回 True
15——如果公式处于隐藏状态传回 True
16——传回储存格宽度
17——以点为单位传回储存格高度
18——字型名称
19——以点为单位元传回字号
20——如果储存格所有或第一个字符为加粗传回 True
21——如果储存格所有或第一个字符为斜体传回 True
22——如果储存格所有或第一个字符为单底线传回True
23——如果储存格所有或第一个字符字型中间加了一条水平线传回 True
24——传回储存格第一个字符色彩数字， 1 至 56。如果设定为自动，传回 0
25——MS Excel不支持大纲格式
26——MS Excel不支持阴影格式
27——数字显示手动插入的分页线设定
28——大纲的列层次
29——大纲的栏层次
30——如果范围为大纲的摘要列则为 True
31——如果范围为大纲的摘要栏则为 True
32——显示活页簿和工作表名称
33——如果储存格格式为多行文字则为 True
34——传回储存格外框左方色彩，数字显示。如果设定为自动，传回 0
35——传回储存格外框右方色彩，数字显示。如果设定为自动，传回 0
36——传回储存格外框上方色彩，数字显示。如果设定为自动，传回 0
37——传回储存格外框下方色彩，数字显示。如果设定为自动，传回 0
38——传回储存格前景阴影色彩，数字显示。如果设定为自动，传回 0
39——传回储存格背影阴影色彩，数字显示。如果设定为自动，传回 0
40——文字显示储存格样式
41——传回参照地址的原始公式
42——以点为单位传回使用中窗口左方至储存格左方水平距离
43——以点为单位传回使用中窗口上方至储存格上方垂直距离
44——以点为单位传回使用中窗口左方至储存格右方水平距离
45——以点为单位传回使用中窗口上方至储存格下方垂直距离
46——如果储存格有插入批注传回 True
47——如果储存格有插入声音提示传回 True
48——如果储存格有插入公式传回 True
49——如果储存格是数组公式的范围传回 True
50——传回储存格垂直对齐，数字显示
51——传回储存格垂直方向，数字显示
52——传回储存格前缀字符
53——文字显示传回储存格显示内容
54——传回储存格数据透视表名称
55——传回储存格在数据透视表的位置
56——枢纽分析
57——如果储存格所有或第一个字符为上标传回True
58——文字显示传回储存格所有或第一个字符字型样式
59——传回储存格底线样式，数字显示
60——如果储存格所有或第一个字符为下标传回True
61——枢纽分析
62——显示活页簿和工作表名称
63——传回储存格的填满色彩
64——传回图样前景色彩
65——枢纽分析
66——显示活页簿名称
这个函数这么大作用，怎么添加呢？按照常规方法在单元格中输入是没有用的，会提示函数无效。
不能写在公式里，这个函数还有什么用？呵呵，高手就高在这里了，不能写在公式中，但是我们可以写在名称里！
比如现在我们要取得A1单元格里的数据格式，结果显示在B1步骤如下：
1。任选一个单元格-->菜单中的插入--->名称-->定义
2。在名称称输入任意名称（假定为OK）
3。在引用位置上写入=GET.CELL(7,Sheet1!A1)
4。点击添加；
5。在B1单元格里输入=OK
看到了，显示的结果是什么？如果没修改过的话应该是G/通用格式吧！这时就能看到返回的单元格式了吧。

追问

谢谢！但不行，显示出来的是＝A1*B1,我要求是显示内容为1000,公式为=IF(A1="","",A1*B1),而A1*B1为C1单元格中的公式.

追答

如你所言：必须要求D1中显示公式==IF(A1="","",函数引用C1单元格中的公式)
既然是函数引用C1的公式，那么这个函数可以显示在D1的公式中，而这个函数的结果只是计算过程的中间值，公式计算的中间值拿来显示怎么可能？
仍然不明白你要实现的结果
---------------------看看是不是这个意思，粘贴到所在工作表的代码区域
Private Sub Worksheet_Change(ByVal Target As Range)
Dim str As String
If Target.Column = 4 Then
If Len(Cells(Target.Row, Target.Column - 1)) 0 Then
r = Cells(Target.Row, Target.Column - 1)
str = Cells(Target.Row, Target.Column - 1).Formula
If Cells(Target.Row, Target.Column - 1).HasFormula Then
getformula = Right(str, Len(str) - 1)
Else
getformula = str
End If
Cells(Target.Row, Target.Column) = "=if(A1="""",""""," & getformula & ")"
End If
End If
End Sub
----------------------
若c列单元格全是公式，那么中间那个if判断可以不要，只留去掉=号这句
getformula = Right(str, Len(str) - 1)

Answer 2

=IF(A1="","",C1),这里的C1 就已经引用了 “=A1*B1” 所以没必要再去弄成A1*B1

追问

必须要求D1中显示公式==IF(A1="","",函数引用C1单元格中的公式)

Answer 3

你的问题说明还真是绕 那么多也就 最后还是不明白你要问什么

Answer 4

你已经知道答案了！D1的公式就你那样写就可以了……

追问

D1的公式只是我想要达到的效果,公式中的A1*B1要求用一个函数引用C1单元格中公式A1*B1,如果函数不用做到,用VBA也就可以.

追答

你要在公式中使用 直接显示 是不可能的……
如果要实现 那么你也只能通过vba 的形式来输入这个公式……干嘛要这样做哪？有何意义？

VBA 生成 这个公式 绝不是 你录入公式让其显示……