怎样用VBA向下填充计算结果？

YZLSZAJ

求助各位老师：
      怎样在已有公式（金色单元格）的基础上，用VBA向下填充计算结果？即：
      一、“1”工作表：从第5行开始，填充至A列不为空的行。
      二、“2”工作表：从第5行开始，填充至218行。
      注意：填充后的单元格是结果而不是公式，谢谢！


设计表3.rar (125.27 KB, 下载次数: 30)

2019-1-17 20:56 上传

点击文件名下载附件

dsmch

1. Sub 示例()
   
2. Sheets("1").Activate
   
3. [b4] = "=IF(C4="""","""",ROW()-3)"
   
4. With Range("b4:b" & Cells(Rows.Count, 1).End(xlUp).Row)
   
5.   .FillDown
   
6.   .Value = .Value
   
7. End With
   
8. End Sub

复制代码

YZLSZAJ

问题还没有解决，继续求助，谢谢。

jsgj2023

改为用VBA实现相同的功能,可能更容易获得帮助!

YZLSZAJ

jsgj2023 发表于 2019-1-19 20:07
改为用VBA实现相同的功能,可能更容易获得帮助!

j版：请继续指教。      

蓝桥玄霜

请见附件。

YZLSZAJ

蓝桥玄霜 发表于 2019-1-25 17:35
请见附件。

虽然代码看不懂，但还是非常谢谢您！希望第二个问题也能够帮我解决。

蓝桥玄霜

YZLSZAJ 发表于 2019-1-27 06:42
虽然代码看不懂，但还是非常谢谢您！希望第二个问题也能够帮我解决。

第2个问题因为只有200行数据，所以用公式也不影响到速度。

YZLSZAJ

蓝桥玄霜 发表于 2019-1-27 09:10
第2个问题因为只有200行数据，所以用公式也不影响到速度。

好的，谢谢蓝老师！

snowmanjx

关注一下，明天过来学习