用VBA填写公式的书写方法

townyee · 发表于 2021-5-25 22:40

本帖最后由 townyee 于 2021-5-25 22:44 编辑

abuding 发表于 2021-5-25 22:23
向下复制的意思，从当前单元格开始，往下单元格的值（公式）与当前单元格的值（公式）相同。

举个例子，比如C1：C10的格，都填写C1的值？
是这个意思
Range("c1:c10").Value = Range("C1").Value值可以这么写
公式不会，等高手

山菊花 · 发表于 2021-5-26 06:44

Range("c2:c10").Formula = "=c$1"
这样？

psxk3535 · 发表于 2021-5-26 15:05

本帖最后由 psxk3535 于 2021-5-28 14:03 编辑

和那效果一样，

abuding · 发表于 2021-5-26 21:23

山菊花发表于 2021-5-26 06:44
Range("c2:c10").Formula = "=c$1"
这样？

版主您好，简单说：不用循环的情况下，使C2:C5的每个单元格里，填写的都是 =SUBSTITUTE(b2&c2,"-","")
。最好用类似Range（“C2:C5”）="中间是公式"的方式实现，里面没有$符号。

山菊花 · 发表于 2021-5-26 21:54

抱歉，无能为力。

abuding · 发表于 2024-2-16 22:15

今天重温当初问题，现在终于有所理解：1、复杂带变量的公式，整体看公式部分，是属于以 “ ” 为分段并用&符号进行连接。2、每个分段中遵循最外层引号内的引号，碰到一个就翻倍（增加一个引号）3、如果每个分段内的引号，不想用翻倍的方法进行书写，那么可以直接用 chr(34) 代替，此时通过chr(34) 和 &符号进行再进一步拆分成更碎的字符串段。

如此，我的问题答案可以有如下两种写法
1、Range("d" & i).Formula = "=Substitute(B" & i & "&C" & i & ",""-"","""")"
2、Range("d" & i).Formula = "=Substitute(B" & i & "&C" & i & "," & Chr(34) & "-" & Chr(34) & "," & Chr(34) & Chr(34) & ")"

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

[求助] 用VBA填写公式的书写方法