資料比對

帖子: 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

樓主熱帖

hcm19522

大學生 Rank: 4

帖子: 1387
主題: 4
精華: 0
積分: 1397
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-11-15

熱烈參與勳章

2^#

發表於 2017-9-21 16:20 | 只看該作者

{=INDEX(A:A,SMALL(IF(MMULT(($B$2:$C$6=$D$2:$E$6)*1,{1;1})<2,ROW(C$2:C$6),4^8),ROW(B1)))&""

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

帖子: 234
主題: 19
精華: 0
積分: 276
點名: 0
作業系統: Windows XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2013-1-7
最後登錄: 2021-10-7

3^#

發表於 2017-9-21 16:39 | 只看該作者

回復 2# hcm19522
謝謝指導,我再研究看看

帖子: 234
主題: 19
精華: 0
積分: 276
點名: 0
作業系統: Windows XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2013-1-7
最後登錄: 2021-10-7

4^#

發表於 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

Kubi

帖子: 163
主題: 1
精華: 0
積分: 170
點名: 0
作業系統: Window 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-9-5
最後登錄: 2022-7-20

5^#

發表於 2017-9-21 20:29 | 只看該作者

回復 4# jcchiang

您可能是誤植～

下式：
If .Cells(C.Row, 3) <> .Cells(C.Row, 5) Or .Cells(C.Row, 4) <> .Cells(C.Row, 6) Then

應改為：
If .Cells(C.Row, 2) <> .Cells(C.Row, 4) Or .Cells(C.Row, 3) <> .Cells(C.Row, 5) Then

帖子: 234
主題: 19
精華: 0
積分: 276
點名: 0
作業系統: Windows XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2013-1-7
最後登錄: 2021-10-7

6^#

發表於 2017-9-22 08:02 | 只看該作者

回復 5# Kubi
感謝提醒,已修正