[已解决]填充VBA公式

18080940328

填充VBA公式 在B 列填充

最佳答案

月排行榜 / 总排行榜

Excel学徒123

2015-5-9 17:00

1. Sub test()
   
2.     Dim irow As Integer, i
   
3.     irow = Cells(Rows.Count, 1).End(3).Row
   
4.     For i = 5 To irow
   
5.         If Cells(i, 1) > 0 Then
   
6.             Cells(i, 3) = Round(Cells(i, 1), 3)
   
7.         Else
   
8.             Cells(i, 3) = Round(Cells(i + 1, 2), 3)
   
9.         End If
   
10.     Next
    
11.     Range("c:c").NumberFormatLocal = "0.000"
    
12. End Sub
    

复制代码

跳转到最佳答案楼层

qh8600

建议录制个宏就可以了

18080940328

我用了。。。我想学VBA怎么写

Excel学徒123

1. Sub test()
   
2.     Dim irow As Integer, i
   
3.     irow = Cells(Rows.Count, 1).End(3).Row
   
4.     For i = 5 To irow
   
5.         If Cells(i, 1) > 0 Then
   
6.             Cells(i, 3) = Round(Cells(i, 1), 3)
   
7.         Else
   
8.             Cells(i, 3) = Round(Cells(i + 1, 2), 3)
   
9.         End If
   
10.     Next
    
11.     Range("c:c").NumberFormatLocal = "0.000"
    
12. End Sub
    

复制代码

18080940328

运行后A 列空对应的B列是零了。。。
谢谢你，看你帮助了好多人。。我跟着课件才看到数组。。。想码点小代码在往后学，要不忘得太快了。

Excel学徒123

1. Sub test()
   
2.     Dim irow As Integer, i
   
3.     irow = Cells(Rows.Count, 1).End(3).Row
   
4.     Range("D5") = "=ROUND(IF(A5>0,A5,B6),3)"
   
5.     Range("d5").AutoFill Destination:=Range("d5:d" & irow)
   
6.     Range("c:c").NumberFormatLocal = "0.000"
   
7. End Sub
   

复制代码

这是第二种方法，自己试吧

Excel学徒123

18080940328 发表于 2015-5-9 17:09
运行后A 列空对应的B列是零了。。。
谢谢你，看你帮助了好多人。。我跟着课件才看到数组。。。想码点小代码 ...

两种方法，自己选吧

双修的苏摩尔

这么简单吗？都是高手啊

18080940328

Excel学徒123 发表于 2015-5-9 17:13
两种方法，自己选吧

还是那样，，，有没有最后一单元向上填充的办法？

Excel学徒123

18080940328 发表于 2015-5-9 17:22
还是那样，，，有没有最后一单元向上填充的办法？

这个是从上往下填充的，你的公式就是这样的呀