返回列表 上一主題 發帖

[發問] 兩欄不同資料合併

li_hsien

帖子
248 
主題
55 
精華
0 
積分
314 
點名
54  
作業系統
XP / WIN7 
軟體版本
2003 / 2007 
閱讀權限
20 
性別
男 
來自
Tainan 
註冊時間
2013-10-18 
最後登錄
2025-3-13 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇贊助勳章2014馬年全勤獎章2015羊年全勤獎章熱烈參與勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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


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

謝謝各位大大  :  )
收藏 分享
用功到世界末日那一天∼∼∼

li_hsien

帖子
248 
主題
55 
精華
0 
積分
314 
點名
54  
作業系統
XP / WIN7 
軟體版本
2003 / 2007 
閱讀權限
20 
性別
男 
來自
Tainan 
註冊時間
2013-10-18 
最後登錄
2025-3-13 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇贊助勳章2014馬年全勤獎章2015羊年全勤獎章熱烈參與勳章
2#
發表於 2013-12-26 18:29 | 顯示全部帖子
回復 2# yangjie

謝謝yangjie的回覆

又學到點東西了 :  )


我後來也有想到個方法

用match來判斷
  1. Sub match()

  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
複製代碼
用功到世界末日那一天∼∼∼

TOP

        靜思自在 : 一句溫暖的話，就像往別人身上灑香水，自己會沾到兩三滴。
返回列表 上一主題