¤ô¤¸¯À

¦^´_ 1# ianlcc

¬Ý¬Ýµ{¦¡¤º®e¬O§_§A©Ò»Ý¡A§Ú¤]­è¾Ç¼gVBA¡A¦³¨ä¥L°ÝÃD©Î§ó²³æ¼gªk¤]§Æ±æ¤j®a´£¥X«ü¾É¡AÁÂÁÂ
µ{¦¡¤º®e¨Ì·Ó§Aªº¹Ï¤ùÄæ¦ì©Ò¼g¡A°ß¤@¤£¦P¬O§A¥u»Ý­n¿é¤J¥»´Áªº¼Æ¨âÄæ¦ì¶ñ§¹«ö¤U«ö¶s§Y¥i¦Û°Ê­pºâ

1. Sub AAA()
   
2. 
   
3. Application.Calculation = xlCalculationManual
   
4. 
   
5. Application.ScreenUpdating = False
   
6. 
   
7. Dim i As Integer, j As Integer
   
8. 
   
9. j = Range("C2").CurrentRegion.Rows.Count  '¦Û°Ê´M§ä³Ì«á¤@Äæ¦ì¸ê®Æ¦C
   
10. 
    
11. i = 2
    
12. 
    
13. Do Until i = j + 1
    
14. 
    
15. Cells(i, "D").Value = Cells(i, "B").Value + Cells(i, "C").Value '­pºâ²Ö­p¼Æ¶q
    
16. 
    
17. i = i + 1
    
18. 
    
19. Loop
    
20. 
    
21. Range(Cells(2, "D"), Cells(j, "D")).copy '§ó·s²Ö­p¼Æ¶q¨ì«e´Á¼Æ¶q
    
22. 
    
23. Range("B2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    
24.             :=False, Transpose:=False
    
25. 
    
26. Range(Cells(2, "C"), Cells(j, "C")).ClearContents '²M°£¥»´Á¼Æ¶q
    
27. 
    
28. Application.ScreenUpdating = True
    
29. 
    
30. Application.Calculation = xlCalculationAutomatic
    
31. 
    
32. End Sub

½Æ»s¥N½X