[已解决]如何添加公式

雄鹰2013

如何添加公式

最佳答案

月排行榜 / 总排行榜

Excel学徒123

2015-4-24 09:31

1. Sub 合计()
   
2.     Dim Irow As Integer
   
3.     Dim Inte As Integer
   
4.     Dim rg As Range
   
5.     Set rg = Cells.Find("合计", , , xlWhole)
   
6.     If Not rg Is Nothing Then
   
7.         rg.EntireRow.Delete
   
8.     End If
   
9.     Irow = Cells(Rows.Count, 2).End(3).Row
   
10.     Cells(Irow + 1, 2) = "合计"
    
11.     For Inte = 3 To 7
    
12.         Cells(Irow + 1, Inte) = Application.WorksheetFunction.Sum(Range(Cells(2, Inte), Cells(Irow, Inte)))
    
13.     Next
    
14. End Sub
    

复制代码

楼下下载附件吧

跳转到最佳答案楼层

Excel学徒123

1. Sub 合计()
   
2.     Dim Irow As Integer
   
3.     Dim Inte As Integer
   
4.     Dim rg As Range
   
5.     Set rg = Cells.Find("合计", , , xlWhole)
   
6.     If Not rg Is Nothing Then
   
7.         rg.EntireRow.Delete
   
8.     End If
   
9.     Irow = Cells(Rows.Count, 2).End(3).Row
   
10.     Cells(Irow + 1, 2) = "合计"
    
11.     For Inte = 3 To 7
    
12.         Cells(Irow + 1, Inte) = Application.WorksheetFunction.Sum(Range(Cells(2, Inte), Cells(Irow, Inte)))
    
13.     Next
    
14. End Sub
    

复制代码

楼下下载附件吧

Excel学徒123

................

爱疯

执行后，是啥样子？

雄鹰2013

重新上传了附件
A、D、G列有公式
对于新添加的员工，复制公式到所对应的行中，并且在最后一行加一个合计

雄鹰2013

除了A、D、G列其他的数据都是手工添加的

Excel学徒123

挤牙膏的问题，一次说清楚多好，大家的时间都浪费了

雄鹰2013

不好意思，以为都说清了{:091:}