返回列表 上一主題 發帖

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

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2017-11-13 14:44 | 只看該作者

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

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

ikboy

帖子
262 
主題
8 
精華
0 
積分
280 
點名
17  
作業系統
xp 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
HK 
註冊時間
2015-8-11 
最後登錄
2024-11-19 

2016猴年全勤獎章
4#
發表於 2017-11-14 11:12 | 只看該作者
回復 3# yangjie


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

TOP

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
3#
發表於 2017-11-13 16:05 | 只看該作者
回復 2# ikboy
請教
UBound(a, 2) 是如何解釋?

TOP

ikboy

帖子
262 
主題
8 
精華
0 
積分
280 
點名
17  
作業系統
xp 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
HK 
註冊時間
2015-8-11 
最後登錄
2024-11-19 

2016猴年全勤獎章
2#
發表於 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
複製代碼

TOP

        靜思自在 : 人事的艱難與琢磨，就是一種考驗。
返回列表 上一主題