大家帮忙写2个宏的语句，谢谢

刘畅20001216

大家帮忙写2个宏的语句，一个是在空的行里自动填写好序列号，一个是在增加的行后，合计公式没变，要重新计算，谢谢

fhqwgimtd

1. 
   
2. Sub 日期()
   
3. Dim r, p As Integer
   
4. r = Range("b65536").End(xlUp).Row
   
5. p = Range("c65536").End(xlUp).Row
   
6. If r < p Then
   
7. Range("b" & r + 1 & ":b" & p) = [b1].Value
   
8. End If
   
9. End Sub
   
10. 
    
11. Sub 增加行()
    
12. With Sheets("中厨房采购直拨及领料")
    
13. Set Rng = .Columns(1).Find("合 计", , , 1)
    
14. If Not Rng Is Nothing Then
    
15. rs = Rng.Row
    
16. .Rows(rs & ":" & rs + 9).Insert Shift:=xlDown
    
17.   .Range(.Cells(rs - 1, "f"), .Cells(rs - 1, "i")).AutoFill Destination:=.Range(.Cells(rs - 1, "f"), .Cells(rs + 9, "i")), Type:=xlFillDefault
    
18. End If
    
19. k = Sheets("中厨房采购直拨及领料").Range("a65536").End(xlUp).Row - 1
    
20. For i = 3 To k
    
21. Range("a" & i) = i - 2
    
22. Next
    
23. 
    
24. End With
    
25. End Sub
    
26. 
    
27. 
    
28. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
29. l = Range("a65536").End(xlUp).Row
    
30. Range("h" & l) = Application.WorksheetFunction.Sum(Range("h3:h" & l - 1))
    
31. 
    
32. End Sub
    

复制代码