返回列表 上一主題 發帖

[發問] 判斷 兩列是否完全一樣

[發問] 判斷 兩列是否完全一樣

請教大大:
   workbook1.Sheets(3).Row(4)
   workbook2.Sheets(3).Row(4)
只是要判斷 兩列是否完全一樣(判斷是否有修改過)
語法 如何?
謝謝賜教
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

回復 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
複製代碼
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

回復 2# ikboy
請教
UBound(a, 2) 是如何解釋?
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

回復 3# yangjie


    官方說明:https://msdn.microsoft.com/zh-tw/library/95b8f22f(v=vs.90).aspx
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

        靜思自在 : 忘功不忘過,忘怨不忘恩。
返回列表 上一主題