公式向右填充

地瓜苗

请教老师们，怎么向右填充有规律的公式，从E4开始，第4行，每一个单元格=对应列数的第一行的绝对引用/D4单元格，E4到AM4单元格是我手动输入的，请教有没有代码可以实现这样的填充，非常感谢！
VBA刚入门，今天调试了一下午都不行，非常谢谢大家！

不知道为什么

试试
.FillRight

tudarong

6 - 副本.rar (225.11 KB, 下载次数: 13)

2018-7-11 00:01 上传

点击文件名下载附件

附件已写入代码，点击按钮可一键输入公式，请确认。
如果有用，请评分，谢谢！

1. Sub test()
   
2.     Dim m%, i%
   
3.     Dim rng As Range
   
4.     m = Sheet1.[a65536].End(xlUp).Row
   
5.     i = 5
   
6.     For Each rng In [E1:MI1]
   
7.         Range(Cells(4, i), Cells(m, i)) = "=" & Cells(1, i) & "/" & "D4"
   
8.         i = i + 1
   
9.     Next
   
10. End Sub

复制代码

wangweihebtu

没理解为什么第一行用绝对引用，有什么必须的操作么？如果仅仅是和你一样的结果，E4=E1/$D$4，右拉到头不就解决了？

tudarong

wangweihebtu 发表于 2018-7-11 07:35
没理解为什么第一行用绝对引用，有什么必须的操作么？如果仅仅是和你一样的结果，E4=E1/$D$4，右拉到头不就 ...

输入公式，右拉到头，再下拉，也可以，但是工作表中数据还是挺多的，不太方便。

tudarong

昨晚用VBA给你写了一段，可以达到你要的效果，还在审核中。

lenghonghai601

1. Range("e4") = "=e1/$d$4"
   
2. Range("e4").Resize(1, 10).FillRight
   
3. 使用这样的语句可自动填充公式，10那个数字代表填充的列数，可以自己修改。

复制代码

tudarong

tudarong 发表于 2018-7-11 00:03
附件已写入代码，点击按钮可一键输入公式，请确认。
如果有用，请评分，谢谢！

代码中直接引用了第一行的值代入公式，而没有使用第一行的单元格地址代入公式。

wangweihebtu

E4=E$1/$D4 右拉到头，下拉到底就成了，咱们没那水平鼓捣VBA，还不如这样来得快

wangweihebtu

我自己不会写，在上边老兄的基础上改了个参数，看看是不是符合要求了

Sub test()
    Dim m%, i%
    Dim rng As Range
    m = Sheet1.[a65536].End(xlUp).Row
    i = 5
    For Each rng In [E1:MI1]
        Range(Cells(4, i), Cells(m, i)) = "=" & Cells(1, i).Address & "/" & "D4"
        i = i + 1
    Next
End Sub