求帮忙写个可以自动填写已有公式的VBA

hotf4zhl

求帮忙写个可以自动填写已有公式的VBA。

B6列已有公式，希望可以写个补全B列公式的VBA。（B列需要显示出Vlookup公式）

自己胡乱写了些，感觉不太对。希望帮忙修改下。

   If Range("B5") = "DDS" Then Range("B6").Select
   
   Selection.AutoFill Destination:=Cells("B6").End(xlDown)

先谢了！

xiangbaoan

If Range("B5") = "DDS" Then Range("B6").AutoFill Range("b6:b" & [a65536].End(xlUp).Row)

lsc900707

既然来到VBA板块，就不要再迷恋公式！看看用字典代替vlookup的帖子。

hotf4zhl

xiangbaoan 发表于 2018-9-23 09:54
If Range("B5") = "DDS" Then Range("B6").AutoFill Range("b6:b" & [a65536].End(xlUp).Row)

多谢帮忙改善代码！

请问有没有办法自动让代码寻找"DDS"? 目前"DDS"在B5上，如果移动“”DDS“”到C5上也可以自动填写已有的公式？

我用的方法比较笨，如果range("B5")="DDS" Then. 可以不可以写成如果看到"DDS"（任何行或列）就会在下一行执行代码呢？

如果太麻烦就算了，帮忙改善过的代码已经很好用了。

多谢！

hotf4zhl

lsc900707 发表于 2018-9-23 10:09
既然来到VBA板块，就不要再迷恋公式！看看用字典代替vlookup的帖子。

不是迷恋公式，只是有些报表需要显示公式，用来核实数据。我会查查有关字典代替vlookup的帖子。多谢！

xiangbaoan

hotf4zhl 发表于 2018-9-23 10:45
不是迷恋公式，只是有些报表需要显示公式，用来核实数据。我会查查有关字典代替vlookup的帖子。多谢！

不麻烦，加个循环判断一下：
Sub Macro1() '仅供参考
Dim c%, h&
h = Cells(Rows.Count, 1).End(xlUp).Row - 5
For c = 2 To Cells(5, Columns.Count).Column
    If Cells(5, c) = "DDS" Then Cells(6, c).AutoFill Cells(6, c).Resize(h)
Next
End Sub

hotf4zhl

xiangbaoan 发表于 2018-9-23 11:04
不麻烦，加个循环判断一下：
Sub Macro1() '仅供参考
Dim c%, h&

多谢！

请问 -5是在这里的作用？ 我试着改成-3 或者 -4 代码依然可以用。

xiangbaoan

hotf4zhl 发表于 2018-9-23 12:59
多谢！

请问 -5是在这里的作用？ 我试着改成-3 或者 -4 代码依然可以用。

从第6行填充，前面多了5行嘛，你减6、7、8、9试试，看行不行
减3、减4只是多填充了行而已。减6、7、8、9则少了，填充不满，不行的。

hotf4zhl

xiangbaoan 发表于 2018-9-23 13:08
从第6行填充，前面多了5行嘛，你减6、7、8、9试试，看行不行
减3、减4只是多填充了行而已。减6、7、8、9 ...

懂了，-5是对 End(xlUp).Row 条件补充，填充从最后一行到第六行。 多谢你的帮忙！

xiangbaoan

hotf4zhl 发表于 2018-9-23 13:18
懂了，-5是对 End(xlUp).Row 条件补充，填充从最后一行到第六行。 多谢你的帮忙！

不用谢！慢慢来，是一个厚积薄发、沉淀的过程……
我就不给你回送花了，问题多的人花多了木意思，有点不相称的感觉哈……