返回列表 上一主題 發帖

資料比對

jcchiang

帖子
234 
主題
19 
精華
0 
積分
276 
點名
0  
作業系統
Windows XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2013-1-7 
最後登錄
2021-10-7 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2017-9-21 15:52 | 顯示全部帖子

資料比對

A~E欄內,同一列中B欄與D欄比較/C欄與E欄比較,將不一樣的複製到M~Q欄
請問如何用VBA執行
A  B  C   D  E
1  0  aa  0  aa
2  1  bb 2  cc
3  1  dd 1 dd
4  2  zz  2  zz
5  6  aa  7 aa

不同的複製到
M N O  P  Q
2  1  bb 2  cc
5  6  aa  7 aa
收藏 分享

jcchiang

帖子
234 
主題
19 
精華
0 
積分
276 
點名
0  
作業系統
Windows XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2013-1-7 
最後登錄
2021-10-7 
2#
發表於 2017-9-21 16:39 | 顯示全部帖子
回復 2# hcm19522
謝謝指導,我再研究看看

TOP

jcchiang

帖子
234 
主題
19 
精華
0 
積分
276 
點名
0  
作業系統
Windows XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2013-1-7 
最後登錄
2021-10-7 
3#
發表於 2017-9-21 17:00 | 顯示全部帖子
已解決,謝謝大家
Sub Ex()
Dim Ay(4), Ary(), C As Range
With Sheets(1)
    For Each C In .Range(.[a2], .[a2].End(xlDown))
          If .Cells(C.Row, 3) <> .Cells(C.Row, 5) Or .Cells(C.Row, 4) <> .Cells(C.Row, 6) Then
          Ay(0) = .Cells(C.Row, 1): Ay(1) = .Cells(C.Row, 2): Ay(2) = .Cells(C.Row, 3): Ay(3) = .Cells(C.Row, 4)
          Ay(4) = .Cells(C.Row, 5)
          ReDim Preserve Ary(s)
          Ary(s) = Ay
          Erase Ay: s = s + 1
          End If
   Next
End With
Sheets(1).Range("m1:q65526").Clear
Sheets(1).[m1].Resize(s, 5) = Application.Transpose(Application.Transpose(Ary))
End Sub

TOP

jcchiang

帖子
234 
主題
19 
精華
0 
積分
276 
點名
0  
作業系統
Windows XP 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2013-1-7 
最後登錄
2021-10-7 
4#
發表於 2017-9-22 08:02 | 顯示全部帖子
回復 5# Kubi
感謝提醒,已修正

TOP

        靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。
返回列表 上一主題