麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] 請問資料比對問題,如何將多筆資料對應到一個儲存格中並用"、"分隔 [打印本頁]

作者: happycoccolin 時間: 2012-7-19 15:54 標題: 請問資料比對問題,如何將多筆資料對應到一個儲存格中並用"、"分隔

本帖最後由 happycoccolin 於 2012-7-20 17:43 編輯

哈囉~~~

請教一下,目前有資料對應的問題如下~~若單純使用VLOOKUP做,只會顯是一筆資料...不知還能怎麼寫@@

謝謝~~~~

SHEET1
A                                  B                C
1234-5678 11111 aa、bb、cc、dd <-如何在C欄位顯示SHEET2裡面,A欄位對應的資料,用"、"分隔,對應欄位不一定,有可能到10個
1234-5678 11111 aa、bb、cc、dd
1234-5678 11111 aa、bb、cc、dd
1234-5678 11111 aa、bb、cc、dd
2345-6789 22222 ee、ff、gg
2345-6789 22222 ee、ff、gg
2345-6789 22222 ee、ff、gg
3456-7890 33333                      <-若沒有資料則顯示空白
3456-7890 33333
3456-7890 33333
3456-7890 33333
3456-7890 33333
3456-7890 33333

SHEET2
A                               B
1234-5678 aa
1234-5678 bb
1234-5678 cc
1234-5678 dd
2345-6789 ee
2345-6789 ff
2345-6789 gg
3456-7890
3456-7890
3456-7890
3456-7890
[attach]11745[/attach]

作者: zz5151353 時間: 2012-7-27 11:37

本帖最後由 zz5151353 於 2012-7-27 12:17 編輯

函數有難度,請參考自定義函數吧

函數是可以做到但是有一問題沒辦法產生,噸號,豆號等等.....
{=PHONETIC(OFFSET(Sheet2!B$1,MATCH(A1,Sheet2!A:A,)-1,,COUNTIF(Sheet2!A:A,A1)))}

作者: happycoccolin 時間: 2012-8-3 10:13

回復 2# zz5151353

哈囉~~~~~我不能下載檔案耶~~也謝謝回覆~~我會了解一下內容試試看~謝謝喔!!!

作者: c_c_lai 時間: 2012-8-3 10:52

本帖最後由 c_c_lai 於 2012-8-3 10:54 編輯

回復 3# happycoccolin
' 我替 zz5151353 大大回答妳的問題：

Function zz(rng As Range, Page As Range, FVal) As String
Dim SN()
For i = 1 To rng.Count
If rng(i) = FVal Then
ReDim Preserve SN(s)
SN(s) = Page(i): s = s + 1
End If
Next
zz = Join(SN, "、")
End Function

複製代碼

[attach]12010[/attach]

作者: happycoccolin 時間: 2012-9-5 18:02

回復 4# c_c_lai

哇!!我會花時間看一下~~~謝謝您的回覆喔!!!!!

作者: ML089 時間: 2012-9-9 19:49

回復 1# happycoccolin

使用函數難以一步到位，後面增加一些輔助欄位先將各值求出，C欄再將D、E、F、....各欄字串合併起來
採用自定函數是比較簡單容易

作者: happycoccolin 時間: 2014-5-7 11:55

回復 4# c_c_lai

大大你好~~

突然想到~若Sheet2 B欄之中有重複的~是否可以只取一次就好,不要重複出現呢~

例如

我使用此方法後 C欄會出現

aa、bb、cc、dd、aa、aa、aa

是否可以只出現
aa、bb、cc、dd

[attach]18229[/attach]

作者: c_c_lai 時間: 2014-5-7 18:34

回復 7# happycoccolin
是否如此？
[attach]18232[/attach]

Function zz(rng As Range, Page As Range, FVal) As String
Dim SN(), flag As Boolean
For i = 1 To rng.Count ' rng.Count = 14
If rng(i) = FVal Then ' rng(1) = "1234-5678"、
If s > 0 Then
flag = True
For j = 0 To s - 1
If (SN(j) = Page(i)) Then
flag = False
Exit For
End If
Next j
Else
flag = True
End If
If flag Then
ReDim Preserve SN(s)
SN(s) = Page(i): s = s + 1 ' Page(1) = "aa"
End If
End If
Next
zz = Join(SN, "、")
End Function
Sub Test()
With Sheets(2)
str1 = zz(.Range("A1:A14"), .Range("B1:B14"), "1234-5678")
End With
MsgBox str1
End Sub

複製代碼

[attach]18233[/attach]

作者: happycoccolin 時間: 2014-5-8 17:22

回復 8# c_c_lai

是的!!!!!已經測試成功!!謝謝大大!!!!!!

作者: happycoccolin 時間: 2014-8-8 14:49

回復 8# c_c_lai

板大你好,
想請教一下,若是反推,原本C欄位內資料(由逗點分開)有數個,A欄B欄資料相同,要如何把B欄資料個別取出呢?

如下

A B C
1234-5678 11111 aa,bb,cc,dd
2345-6789 22222 ee,ff,gg
3456-7890 33333 hh,ii
-----------------------------------
拆成如下
A B C
1234-5678 11111 aa
1234-5678 11111 bb
1234-5678 11111 cc
1234-5678 11111 dd
1234-5678 11111 aa
1234-5678 11111 aa
1234-5678 11111 aa
2345-6789 22222 ee
2345-6789 22222 ff
2345-6789 22222 gg
3456-7890 33333 hh
3456-7890 33333 ii
[attach]18867[/attach] 夾檔

作者: happycoccolin 時間: 2014-8-15 14:46

請問有哪位大大可以解惑呢~~~~~~

作者: Hsieh 時間: 2014-8-15 16:23

回復 11# happycoccolin

自定義函數輔助會簡單些
如附件反推工作表，公式有定義名稱，注意定義名稱

[attach]18924[/attach]

作者: c_c_lai 時間: 2014-8-16 07:47

回復 10# happycoccolin
因家中七月有事，
不好意思，這麼久才瀏覽訊息。
看了妳描述的，
說真地還不清楚妳真正要的是什麼，
能否清楚地說明前因後果？

作者: happycoccolin 時間: 2014-9-23 16:12

回復 12# Hsieh

謝謝謝謝!!我會好好仔細看一下!!

作者: happycoccolin 時間: 2014-9-23 16:14

回復 13# c_c_lai

HI~~~不好意思~我描述的不是很清楚,我會再整理一下,也謝謝你的回覆喔!!

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