[µo°Ý] ¡mµo°Ý¡n¦³Ãö²Ö­p¼Æ¶q»P«e´Á²Ö­p¼Æ¶q³]©w¤è¦¡

ianlcc

½Ð±Ð¤@¤U¦pªþ¥óÀɮס]°ÝÃD½Ð±Ð¡^
Äæ¦ìD¡]²Ö­p¡^=Äæ¦ìB¡]«e´Á²Ö­p¡^+Äæ¦ìC¡]¥»´Á¡^
§Ú·Q­n³]©w¤@­Ó«ö¶s©ÎVBA
·í§Ú¿é¤JÄæ¦ìC¡]¥»´Á¡^ªº¼Æ¶q¡]­È¡^«á¡AÄæ¦ìD¡]²Ö­p¡^ªº¼Æ¶q¤]·|ÀHµÛ­pºâ±o¨ì
µM«á§Ú«ö¤U¡u«ö¶s¡v©ÎVBA«á
Äæ¦ìD¡]²Ö­p¡^ªº¼Æ¶q¡]­È¡^·|¦Û°Ê¶ñ¤J¨Ã§ó´«Äæ¦ìB¡]«e´Á²Ö­p¡^ªº¼Æ¶q¡]­È¡^
µM«á§âÄæ¦ìC¡]¥»´Á¡^ªº¼Æ¶q¡]­È¡^²M°£
¦p¦¹¤@¨Ó¡A«K©ó§Ú¤U´Á­n¶i¦æ¼Æ¶q²Î­pªº®É­Ô¡A§Ú´N¤£¥Î¥ÎCOPYªº¤è¦¡
±NÄæ¦ìD¡]²Ö­p¡^COPY¦ÜÄæ¦ìB¡]«e´Á²Ö­p¡^
½Ð±Ð¦U¦ì«e½ú¡A§Ú©Ò»¡ªº³o­Ó¬O§_¥i¦æ©O¡H

¤ô¤¸¯À

¦^´_ 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