返回列表 上一主題 發帖

[發問] 資料庫取不重覆資料方式請教

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2017-9-6 16:36 | 顯示全部帖子

[發問] 資料庫取不重覆資料方式請教

DEAR ALL 大大-
1.如圖一資料庫於SHEET1中
2.原則: 要抓取SHEET1不重覆資料至SHEET2中
2.1 前6碼相同算重覆.抓取不重覆資料至SHEET2中.結果如圖二
3.請教如何下 VBA 語法??煩不吝賜教 THANKS*10000
圖一 資料庫
SHEET1
A1=編號        B1=項目   
A2=A12345A     B2=1
A3=B12345B     B3=2
A4=B12345*     B4=3
A5=A12345      B5=4
A6=B12345      B6=5
圖二 結果
SHEET2
A1=編號        B1=項目   
A2=A12345        B2=4
A3=B12345        B3=5
收藏 分享
羅

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
2#
發表於 2017-9-7 08:36 | 顯示全部帖子
DEAR ML089 大大
100%符合需求.THANKS*10000
羅

TOP

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
3#
發表於 2017-9-7 08:42 | 顯示全部帖子
DEAR 大大
  如下.原A.B欄資料轉換 要改為 A-F欄資料轉換
  為何 Sheet2.[A1].Resize(d.Count, 2) 改 Sheet2.[A1].Resize(d.Count, 6)
   後 C.D.E.F欄資料都出現 N/A 煩不吝賜教  THANKS  

Sub AA()
    Arr = Sheet1.Range("A1").CurrentRegion
    Set d = CreateObject("Scripting.Dictionary")
    For i = 1 To UBound(Arr)
        d(Left(Arr(i, 1), 6)) = Arr(i, 2)
    Next
    Sheet2.[A1:F65536].ClearContents
    Sheet2.[A1].Resize(d.Count, 6) = Application.Transpose(Array(d.keys, d.items))
End Sub
羅

TOP

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
4#
發表於 2017-9-7 16:45 | 顯示全部帖子
DEAR ML089 大大
100%符合需求.THANKS*10000

DEAR  hcm19522  大大
感謝提供參考資料 THANKS*10000
羅

TOP

        靜思自在 : 自己害自己，莫過於亂發脾氣。
返回列表 上一主題