Sub 公式向下填充()  
Dim n, a, b  
n = ActiveCell.CurrentRegion.Rows.Count  
'判断活动单元格所在表的行数下限  
a = ActiveCell.Row  
b = ActiveCell.Column  
==Selection.AutoFill Destination:=Range(Cells(a, b), Cells(n, b))==  
End Sub
 \> 来自 \<[https://www.linkedin.com/pulse/%E5%85%AC%E5%BC%8F%E8%87%AA%E5%8A%A8%E5%90%91%E4%B8%8B%E5%A1%AB%E5%85%85excel-vba-junmin-wu?trk=pulse-det-nav_art](https://www.linkedin.com/pulse/%E5%85%AC%E5%BC%8F%E8%87%AA%E5%8A%A8%E5%90%91%E4%B8%8B%E5%A1%AB%E5%85%85excel-vba-junmin-wu?trk=pulse-det-nav_art)\>  

|   |   |
|---|---|
|参考文献2|[https://www.linkedin.com/pulse/%E5%85%AC%E5%BC%8F%E8%87%AA%E5%8A%A8%E5%90%91%E4%B8%8B%E5%A1%AB%E5%85%85excel-vba-junmin-wu?trk=pulse-det-nav_art](https://www.linkedin.com/pulse/%E5%85%AC%E5%BC%8F%E8%87%AA%E5%8A%A8%E5%90%91%E4%B8%8B%E5%A1%AB%E5%85%85excel-vba-junmin-wu?trk=pulse-det-nav_art)|

Sub 插入列以及自动填充公式()
 
Columns("P:P").Select  
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove  
Columns("Q:Q").Select  
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove  
Columns("R:R").Select  
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove  
Range("P1").Select  
ActiveCell.FormulaR1C1 = "首报"  
Range("Q1").Select  
ActiveCell.FormulaR1C1 = "二报"  
Range("R1").Select  
ActiveCell.FormulaR1C1 = "三报"  
Range("P2").Select  
Application.CutCopyMode = False  
ActiveCell.FormulaR1C1 = "=RC[-3]-27"  
Range("Q2").Select  
ActiveCell.FormulaR1C1 = "=RC[-4]-20"  
Range("R2").Select  
ActiveCell.FormulaR1C1 = "=RC[-5]-10"  
'Range("P2:R2").Select  
'Selection.AutoFill Destination:=Range("P2:R9573")  
==Range("P2").AutoFill Destination:=Range("P2:P" & Range("A65536").End(xlUp).Row)==  
==Range("Q2").AutoFill Destination:=Range("Q2:Q" & Range("A65536").End(xlUp).Row)==  
==Range("R2").AutoFill Destination:=Range("R2:R" & Range("A65536").End(xlUp).Row)==  
'Range("P2:R9573").Select  
End Sub

|   |   |
|---|---|
|参考文献1|[http://club.excelhome.net/thread-1330801-1-1.html](http://club.excelhome.net/thread-1330801-1-1.html)|