標題: [發問] 兩欄不同資料合併 [打印本頁]

---

作者: li_hsien    時間: 2013-12-24 15:43     標題: 兩欄不同資料合併

請問各位大大

小弟有兩個欄位
A欄及B欄

A欄與B欄相比，將A欄沒有的補進去A欄裡

EX:
A欄
A,B,C,D,E

B欄
A,C,E,F,G,I,R,A,G

整理之後
A欄為
A,B,C,D,E,F,G,I,R


不知這樣的語法該如何表示比較好

謝謝各位大大  :  )

---

作者: yangjie    時間: 2013-12-25 14:26

本帖最後由 yangjie 於 2013-12-25 14:34 編輯

回復 1# li_hsien

試試看
sub test1()
    Dim d As Object, a
    Set d = CreateObject("Scripting.Dictionary")
    With Sheets(1)
            For Each a1 In .Range(.Cells(2, 1), .Cells(65536, 1).End(xlUp))
                d(a1.Value) = ""
            Next
            n1 = d.Count
           For Each a1 In .Range(.Cells(2, 2), .Cells(65536, 2).End(xlUp))
                d(a1.Value) = ""
           Next
           n2 = d.Count
           If n2 =n1  Then exit sub
          a = d.keys
           k = .Cells(65536, 1).End(xlUp).Row
          For I = n1 + 1 To n2
                .Cells(k + 1, 1) = a(I - 1)
                k = k + 1
          Next
    End With
     
end sub

---

作者: li_hsien    時間: 2013-12-26 18:29

回復 2# yangjie

謝謝yangjie的回覆

又學到點東西了 :  )


我後來也有想到個方法

用match來判斷

1. Sub match()
   
2. 
   
3.     With Workbooks("TEST123").Worksheets("sheet2")
   
4.    
   
5.     For i = 2 To .Range("C2").End(xlDown).Row
   
6.         
   
7.         If IsError(Application.match(.Range("C" & i), Range("C:C"), 0)) = True Then
   
8.             Range("C" & Range("C2").End(xlDown).Row + 1) = .Range("C" & i)
   
9.         End If
   
10.             
    
11.         Debug.Print Range("C2").End(xlDown).Row
    
12.         
    
13.     Next
    
14.    
    
15.     End With
    
16.    
    
17. End Sub

複製代碼

---

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