用VBA填写公式的书写方法

abuding

各位大佬好，最近被一个问题难着了。


请教：用VBA循环语句把公式填写到D列，怎么书写代码？

请见附件

Sub 用公式规范D列()
Dim i As Integer
For i = 2 To 4
    '请教，formula=   的右侧该怎么书写？ 也就是说，通过循环来填充D列的规范公式
     Range("d" & i).Formula = "=Application.WorksheetFunction.Substitute()"
Next
End Sub


谢谢

jokklx

Range("d" & i).Formula = "=Substitute(b" & i &"c&" & i & "," & chr(34) & "-" & chr(34) & ","& chr(34) & chr(34) & ")"

abuding

jokklx 发表于 2021-5-22 20:01
Range("d" & i).Formula = "=Substitute(b" & i &"c&" & i & "," & chr(34) & "-" & chr(34) & ","& chr(34 ...

这位朋友笔误，修改如下
Range("d" & i).Formula = "=Substitute(b" & i & " & c" & i & "," & Chr(34) & "-" & Chr(34) & "," & Chr(34) & Chr(34) & ")"

感谢jokklx  

abuding

    Range("d" & i).Formula = "=Substitute(b" & i & " & c" & i & "," & Chr(34) & " " & Chr(34) & "," & Chr(34) & "" & Chr(34) & ")"

留个纪念，这样写或许更容易理解一些。

山菊花

可以不用循环：
Sub 用公式规范D列()
    Range("d2:d4").Formula = "=SUBSTITUTE(B2&C2,""-"","""")"
End Sub

psxk3535

Sub 用公式规范D列()
Dim i
For i = 2 To 4
Range("D" & i).FormulaR1C1 = "=SUBSTITUTE(RC[-2]&RC[-1],""-"","""")"
Next
End Sub

psxk3535

山菊花 发表于 2021-5-22 22:35
可以不用循环：
Sub 用公式规范D列()
    Range("d2:d4").Formula = "=SUBSTITUTE(B2&C2,""-"","""")"

简单，强等于D2公式下拉或复制

abuding

山菊花 发表于 2021-5-22 22:35
可以不用循环：
Sub 用公式规范D列()
    Range("d2:d4").Formula = "=SUBSTITUTE(B2&C2,""-"","""")"

版主您好，结果正确，过程简洁！

这种写法想破脑袋也想不出啊~，相当于向下填充？  如果是这样，那么向下复制该如何填写？  

感谢指教

山菊花

该写法利用自动填充特性。
什么叫向下复制？

abuding

山菊花 发表于 2021-5-25 21:09
该写法利用自动填充特性。
什么叫向下复制？

向下复制的意思，从当前单元格开始，往下单元格的值（公式）与当前单元格的值（公式）相同。
不是这样：
Sub xxxxx()
    Range("D2:D5").Formula = "=SUBSTITUTE(b$2&c$2,""-"","""")"
End Sub
因为这样做，每个单元格中的公式为：=SUBSTITUTE(b$2&c$2,""-"","""")

想要的结果是这样：
每个单元格中的公式为：=SUBSTITUTE(b2&c2,""-"","""")
用类似  Range("d2:d4").Formula = "=Substitute(b2&c2,""-"","""")"   语句怎么实现 ？

十分感谢