[已解决]提取有公式的单元格和所在的单元格

忘情的城市

比如C2:C7有公式，H7:L37所在单元格有公式，提取出公式，并是那个单元格。我好写入宏
列子
C2        =YEAR(邮政!A7)&""年""&MONTH(邮政!A7)&""月""&""邮政数据""
C3        =SUM(S27:S29)
C4        =SUM(S28:S30)
C5        =SUM(S29:S31)
C6        =SUM(S30:S32)
C7        =SUM(S31:S33)

等等 ，我在用粘结&"" 把它粘结起来

提取的内容可以到 表2

能直接变成这样最好，C2
Range("B11").Formula = "=YEAR(邮政!A7)&""年""&MONTH(邮政!A7)&""月""&""邮政数据"""

获取公式.rar (7.99 KB, 下载次数: 4)

2020-8-15 19:04 上传

点击文件名下载附件

感谢老师的帮助。

最佳答案

月排行榜 / 总排行榜

砂海

2020-8-15 19:06

忘情的城市 发表于 2020-8-17 10:58
真的是看不懂，也不明白是啥意思。试着运行，总是报错

Sub 点点didi5()

Sub 点点didi5()
Debug.Print Range("c11").Address(0, 0, xlA1)
Debug.Print Range("c11").Formula
End Sub

========================
放程序里是这样 , 不再解释了

跳转到最佳答案楼层

砂海

忘情的城市 发表于 2020-8-17 10:58
真的是看不懂，也不明白是啥意思。试着运行，总是报错

Sub 点点didi5()

Sub 点点didi5()
Debug.Print Range("c11").Address(0, 0, xlA1)
Debug.Print Range("c11").Formula
End Sub

========================
放程序里是这样 , 不再解释了

砂海

地址用 .address
公式用 .formula
如看不懂 , 请自行了解基础知识 或者 搜索 "vba代工"

忘情的城市

砂海 发表于 2020-8-17 09:59
地址用 .address
公式用 .formula
如看不懂 , 请自行了解基础知识 或者 搜索 "vba代工"

真的是看不懂，也不明白是啥意思。试着运行，总是报错

Sub 点点didi5()
Debug.Print Range("c11").Address(0, 0, xlA1)
C11

Debug.Print Range("c11").Formula
=SUM(P22:P24)
' = "=SUM(P22:P24)"
End Sub