[已解决]如何区分使用autofill、formula、filldown自动填充

2198596388

请教大神指点指点，下面：
m = Range("b1048576").End(xlUp).Row- 1  

Cells(m, "o") ="=round(if(N" & m & "=""a"",B"& m & "-(PRODUCT(Bl!$F$1,0.2," & s1 &",0.8)+PRODUCT(Bl!$F$1,0.2," & x1 &",0.8))/$n$1,IF(N" & m &"=""b"",B" & m &"-PRODUCT(Bl!$F$1,0.2," & s1 & ",0.2)/$n$2,IF(N"& m & "=""d"",B" & m &"-PRODUCT(Bl!$F$1,0.2," & x1 & ",0.2)/$n$3,B" &m & "))),4)"  

在range("o1:o" & m)中自动填充cells(m,"o")="=round(..................." （上面的公式），怎样区别使用autofill、formula、filldown完成？先谢谢了！

最佳答案

月排行榜 / 总排行榜

dsmch

2016-4-9 20:10

1. Sub Macro1() 'AutoFill
   
2. [a1:a5] = ""
   
3. [a1].Formula = "=row()"
   
4. [a1].AutoFill [a1:a5]
   
5. End Sub
   
6. 
   
7. Sub Macro2() 'FillDown
   
8. [a1:a5] = ""
   
9. [a1].Formula = "=row()"
   
10. [a1:a5].FillDown
    
11. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1() 'AutoFill
   
2. [a1:a5] = ""
   
3. [a1].Formula = "=row()"
   
4. [a1].AutoFill [a1:a5]
   
5. End Sub
   
6. 
   
7. Sub Macro2() 'FillDown
   
8. [a1:a5] = ""
   
9. [a1].Formula = "=row()"
   
10. [a1:a5].FillDown
    
11. End Sub

复制代码