¸­°ê¬w

1. Sub diffab()
   
2. For i = [a65536].End(xlUp).Row To 1 Step -1
   
3.    If IsNumeric(Cells(i, 1)) And Cells(i, 1) <> "" Then
   
4.       a = Cells(i, 1)
   
5.       Exit For
   
6.    End If
   
7. Next i
   
8. For i = [b65536].End(xlUp).Row To 1 Step -1
   
9.    If IsNumeric(Cells(i, 2)) And Cells(i, 2) <> "" Then
   
10.       b = Cells(i, 2)
    
11.       Exit For
    
12.    End If
    
13. Next i
    
14. MsgBox a - b
    
15. End Sub

½Æ»s¥N½X

¦^´_ 1# ziv976688

¸­°ê¬w

1. Sub diffab()
   
2.     k = WorksheetFunction.Max(Columns(1)) - WorksheetFunction.Max(Columns(2))
   
3.     Cells(k, 5).Interior.ColorIndex = 6
   
4. End Sub

½Æ»s¥N½X

¦^´_ 7# ziv976688