標題: [發問] 判斷 兩列是否完全一樣 [打印本頁]

---

作者: yangjie    時間: 2017-11-13 14:44     標題: 判斷 兩列是否完全一樣

請教大大:
   workbook1.Sheets(3).Row(4)
   workbook2.Sheets(3).Row(4)
只是要判斷 兩列是否完全一樣(判斷是否有修改過)
語法 如何?
謝謝賜教

---

作者: ikboy    時間: 2017-11-13 15:11

回復 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

複製代碼

---

作者: yangjie    時間: 2017-11-13 16:05

回復 2# ikboy
請教
UBound(a, 2) 是如何解釋?

---

作者: ikboy    時間: 2017-11-14 11:12

回復 3# yangjie


    官方說明：https://msdn.microsoft.com/zh-tw/library/95b8f22f(v=vs.90).aspx

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)