ikboy

¦^´_ 1# yangjie

1. Sub zz()
   
2. Dim a, b, s$
   
3. a = Sheets(1).Rows(4)
   
4. b = Sheets(3).Rows(4)
   
5. For i = 1 To UBound(a, 2)
   
6.     If a(1, i) <> b(1, i) Then s = s & Chr(10) & Cells(4, i).Address(0, 0)
   
7. Next
   
8. If Len(s) Then MsgBox Mid(s, 2)
   
9. End Sub

½Æ»s¥N½X

ikboy

¦^´_ 3# yangjie


    ©x¤è»¡©ú¡Ghttps://msdn.microsoft.com/zh-tw/library/95b8f22f(v=vs.90).aspx