luhpro

1. Sub nn()
   
2.   Dim lRow As Long
   
3.   
   
4.   lRow = Rows.Count
   
5.   Do Until lRow = 1
   
6.     lRow = Cells(lRow, 13).End(xlUp).Row
   
7.     If Cells(lRow, 12) <> 0 And Cells(lRow, 12) <> "" Then
   
8.       Cells(lRow, 14) = (Cells(lRow, 13) - Cells(lRow, 12)) / Cells(lRow, 12)
   
9.     Else
   
10.       Cells(lRow, 14) = (Cells(lRow, 13) - Cells(lRow, Cells(lRow, 13).End(xlToLeft).Column)) / Cells(lRow, Cells(lRow, 12).End(xlToLeft).Column)
    
11.     End If
    
12.     lRow = lRow - 1
    
13.   Loop
    
14. End Sub

½Æ»s¥N½X

luhpro

¦^´_ 3# freeffly
¨º´NÅܦ¨±q³Ì¥½¤@¦C¨ì²Ä¤G¦C³£­n°õ¦æ.
µM«á¥ý§PÂ_ 12 ¤ë¨ºÄæ¬O§_¦³¸ê®Æ,
­Y¦³«h°õ¦æ­ì¥ýµ{¦¡¤¤ªº¨º­Ó¤ù¬q,
­YµL«h©¹¥ª´M§ä³Ì¥½¨âµ§¸ê®Æ,
­Y¦¹¨âµ§¸ê®Æ¨ä¤¤¤@µ§¦b A Äæ«h¤£°µ¥ô¦ó­pºâ, (¦] A Äd¤£¬O§Ú­Ì­n­pºâªº¸ê®Æ)
§_«h´N±N¦¹¨âÄæ¸ê®Æ°µ¬ÛÀ³ªº­pºâ, µ{¦¡¦p¤U:

1. Sub nn()
   
2.   Dim iCol1%, iCol2%
   
3.   Dim lRows As Long, lRow As Long
   
4.   
   
5.   lRows = Cells(Rows.Count, 1).End(xlUp).Row
   
6.   For lRow = lRows To 2 Step -1
   
7.     If Cells(lRow, 13) <> 0 And Cells(lRow, 13) <> "" Then
   
8.       If Cells(lRow, 12) <> 0 And Cells(lRow, 12) <> "" Then
   
9.         Cells(lRow, 14) = (Cells(lRow, 13) - Cells(lRow, 12)) / Cells(lRow, 12)
   
10.       Else
    
11.         Cells(lRow, 14) = (Cells(lRow, 13) - Cells(lRow, Cells(lRow, 13).End(xlToLeft).Column)) / Cells(lRow, Cells(lRow, 12).End(xlToLeft).Column)
    
12.       End If
    
13.     Else
    
14.       iCol1 = Cells(lRow, 13).End(xlToLeft).Column
    
15.       iCol2 = Cells(lRow, iCol1).End(xlToLeft).Column
    
16.       If iCol1 <> 1 And iCol2 <> 1 Then
    
17.         Cells(lRow, 14) = (Cells(lRow, iCol1) - Cells(lRow, iCol2)) / Cells(lRow, iCol2)
    
18.       End If
    
19.     End If
    
20.   Next lRow
    
21. End Sub

½Æ»s¥N½X