[已解决]【求助】提取单元格里面的公式

xdwy81129 · 发表于 2009-12-17 22:33

即[B1]的公式是=C1+D1

希望再A1里面显示为才C1+D1，即显示“=”后面的全部东西

谢谢老师解答

最佳答案

爱疯

2009-12-17 22:43

Sub A()
    Dim str
    str = Range("B1").Formula
    Range("A1") = Right(str, Len(str) - 1)
End Sub

爱疯 · 发表于 2009-12-17 22:43

Sub A()
    Dim str
    str = Range("B1").Formula
    Range("A1") = Right(str, Len(str) - 1)
End Sub

oobird · 发表于 2009-12-17 22:46

[a1] = Mid([b1].Formula, 2)

爱疯 · 发表于 2009-12-17 22:51

QUOTE:

以下是引用oobird在2009-12-17 22:46:00的发言：
[a1] = Mid([b1].Formula, 2)

原来可以不用第3个参数呀，学习O版的[em04]

xdwy81129 · 发表于 2009-12-17 23:06

都学习了，谢谢。

可惜不能这样用

[a1：a4] = Mid([b1].Formula, 2)

即对应取同行的公式，能不用for循环做到吗？？？

爱疯 · 发表于 2009-12-17 23:15

[a1:a4] = Mid([b1].Formula, 2)

可以。你的冒号不能是全角的。

最佳应发o版的[em23]

月光不合 · 发表于 2009-12-17 23:20

3楼的答案怎么用的，我试了咋不行

xdwy81129 · 发表于 2009-12-17 23:27

QUOTE:

回复楼上的，在vb里面了，不是函数

[此贴子已经被作者于2009-12-17 23:29:57编辑过]

xdwy81129 · 发表于 2009-12-17 23:29

QUOTE:

以下是引用爱疯在2009-12-17 23:15:00的发言：

[a1:a4] = Mid([b1].Formula, 2)

可以。你的冒号不能是全角的。

最佳应发o版的[em23]

不可以的啊

我只的是用[a1:a4] 表示为

[a1] = Mid([b1].Formula, 2)

[a2] = Mid([b2].Formula, 2)

…………

能办到吗？？？

爱疯 · 发表于 2009-12-17 23:42

6tGrPGfI.rar (8.44 KB, 下载次数: 1)

		自动登录	找回密码
密码			注册