12
返回列表 上一主題 發帖

帶出符合一長串字串資料

leiru

帖子
334 
主題
139 
精華
0 
積分
621 
點名
0  
作業系統
WINDOWSXP 
軟體版本
OFFICE2003 
閱讀權限
50 
性別
女 
來自
台北縣 
註冊時間
2010-8-5 
最後登錄
2022-11-3 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2020-5-21 22:26 | 只看該作者

帶出符合一長串字串資料

問題：
B欄求的答案是：
A欄內只要有和E1和E2內任何一個字串符合就在B欄內標示
例如:
E1裡有XSV和XSW…，則儲存格A8351和儲存格A8352有符合這兩個字串，儲存格B8351顯示XSV，儲存格B8352顯示XSW


C欄求的答案是：
A欄內只要符合儲存格E1的任何一個字串，就在C欄內顯示XSV
A欄內只要符合儲存格E2的任何一個字串，就在C欄內顯示XT3
例如：
儲存格A8351和儲存格A8352符合E1內任一字串，則儲存格B8351顯示XSV，儲存格B8352顯示XSV

帶出符合一長串字串資料 的複本.zip (53.1 KB)

收藏 分享
joyce

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1446 
主題
40 
精華
0 
積分
1470 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-10-21 
14#
發表於 2023-5-31 11:56 | 只看該作者
謝謝論壇,謝謝各位前輩
後學藉此帖練習陣列與字典,學習方案如下,請各位前輩指教

Option Explicit
Sub TEST_1() '↑
Dim Brr, Y, i&, T$, TT$, K
'↑宣告變數
Set Y = CreateObject("Scripting.Dictionary")
'↑令Y變數是 字典
Brr = Range([D1], [D65536].End(3))
'↑令Brr變數是 二維陣列,以D欄儲存格值帶入陣列
For i = 2 To UBound(Brr)
   T = Trim(Brr(i, 1)): If T <> "" Then Y(T) = i
Next
'↑設順迴圈將陣列值當key,item是i變數,納入Y字典裡
Brr = Range([A2], [A65536].End(3))
'↑令Brr陣列換裝A欄儲存格值(不含標題列)
For i = 1 To UBound(Brr)
'↑設順迴圈
   T = Replace(Trim(Brr(i, 1)), "+", "=")
   '↑令T變數是陣列值去除頭尾空白字元後,再置換"+" 為 "="
   If T = "" Then GoTo i01 Else: T = "=" & T & "="
   '↑如果T變數是空字元,就不處理跳到標示i01位置繼續執行,
   '否則就令T變數在前後各包夾一個"="符號的新字串
   For Each K In Y.keys
   '↑設逐項迴圈,令K變數是Y字典裡的一key
      If InStr(T, "=" & K & "=") Then TT = TT & "、" & K
      '↑如果T變數(字串)裡包含了 (K變數在前後各包夾一個"="符號)字串
   Next
   Brr(i, 1) = Mid(TT, 2): TT = ""
   '↑令TT變數的第2個字元開始的字串寫入陣列裡(覆蓋原陣列值)
i01: Next
[B2].Resize(UBound(Brr)) = Brr
'↑令Brr陣列值從[B2]開始寫入儲存格裡
Set Y = Nothing: Erase Brr
'↑令釋放變數
End Sub
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1446 
主題
40 
精華
0 
積分
1470 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-10-21 
13#
發表於 2023-5-31 11:22 | 只看該作者
回復 12# 准提部林

謝謝論壇,謝謝前輩
後學藉此帖學習前輩的方案,方案學習心得註解如下,請前輩再指導

執行前:


執行結果:



Option Explicit
Sub TEST()
Dim R&, Arr, T$, TT$, TS, xD, i&
'↑宣告變數
Set xD = CreateObject("Scripting.Dictionary")
'↑令xD變數是 字典
Arr = Range([D1], [D65536].End(xlUp)(2))
'↑令Arr變數是 二維陣列,以D欄儲存格值帶入陣列
For i = 2 To UBound(Arr)
   If Arr(i, 1) <> "" Then xD(Arr(i, 1) & "") = ""
Next i
'↑設順迴圈將陣列值當key,item是空的,納入xD字典裡
Arr = Range([A2], [A65536].End(xlUp)(2))
'↑令Arr陣列換裝A欄儲存格值(不含標題列)
For i = 1 To UBound(Arr)
'↑設順迴圈
    TT = "": T = Replace(Arr(i, 1), "=", "+")
    '↑令TT變數是 空白,令T變數是 陣列值置換 "=" 為 "+"
    If T = "" Then GoTo 101
    '↑如果T變數是空白!就跳到標示101位置繼續執行(空白不處理)
    For Each TS In Split(T, "+")
    '↑設逐項迴圈!令TS變數是 (T變數以"+"分割後的一維陣列)陣列值
        If TS <> "" And xD.Exists(TS & "") Then TT = TT & "、" & TS
        '↑如果TS變數不是空白,且TS變數不在xD字典裡?
        '令TS變數(字串)放在TT變數(字串)後方,以 "、" 間隔
    Next
    Arr(i, 1) = Mid(TT, 2)
    '↑令TT變數取第2字以後的字元寫入Arr陣列裡
101: Next i
[B2].Resize(UBound(Arr)) = Arr
'↑令Arr陣列值從[B2]開始寫入儲存格裡
End Sub
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-22 
12#
發表於 2020-5-26 14:00 | 只看該作者
回復 11# leiru

Sub TEST()
Dim R&, Arr, T$, TT$, TS, xD, i&
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([D1], [D65536].End(xlUp)(2))
For i = 2 To UBound(Arr)
    If Arr(i, 1) <> "" Then xD(Arr(i, 1) & "") = ""
Next i
Arr = Range([A2], [A65536].End(xlUp)(2))
For i = 1 To UBound(Arr)
    TT = "": T = Replace(Arr(i, 1), "=", "+")
    If T = "" Then GoTo 101
    For Each TS In Split(T, "+")
        If TS <> "" And xD.Exists(TS & "") Then TT = TT & "、" & TS
    Next
    Arr(i, 1) = Mid(TT, 2)
101: Next i
[B2].Resize(UBound(Arr)) = Arr
End Sub


==================================

TOP

leiru

帖子
334 
主題
139 
精華
0 
積分
621 
點名
0  
作業系統
WINDOWSXP 
軟體版本
OFFICE2003 
閱讀權限
50 
性別
女 
來自
台北縣 
註冊時間
2010-8-5 
最後登錄
2022-11-3 
11#
發表於 2020-5-25 23:49 | 只看該作者
請問用VBA如何寫，想研究看，感謝您
joyce

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-22 
10#
發表於 2020-5-24 13:57 | 只看該作者
回復 9# leiru


高版本的有合併字串函數, 我沒有!
低版本要用VBA

TOP

leiru

帖子
334 
主題
139 
精華
0 
積分
621 
點名
0  
作業系統
WINDOWSXP 
軟體版本
OFFICE2003 
閱讀權限
50 
性別
女 
來自
台北縣 
註冊時間
2010-8-5 
最後登錄
2022-11-3 
9#
發表於 2020-5-24 13:37 | 只看該作者
回復 8# 准提部林


    謝謝
請問若表格模式倒過來，該如何設定公式，如附檔
問題：
A欄內的字串有符合D欄內的字串，則B欄的答案顯示出來，求Ｂ欄

活頁簿2.zip (7.87 KB)

joyce

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-22 
8#
發表於 2020-5-23 09:58 | 只看該作者
本帖最後由 准提部林 於 2020-5-23 10:06 編輯

回復 7# leiru


B2/陣列:
=IF(COUNT(FIND("+"&A2&"+","+"&SUBSTITUTE(E$1:E$2,"=","+")&"+")),A2,"")

C2/一般:
=IFERROR(LEFT(LOOKUP(1,-FIND("+"&A2&"+","+"&SUBSTITUTE(E$1:E$2,"=","+")&"+"),E:E),3),"")

============================================
若將字串改成:
XSV+/+XSW+XSX+XSY+XSZ+XT0+XT1+XUX+XV0+XV1+XV2
XT3+/+XT4+XT5+XT6+XT7+XT8+XT9+XUY+XV3+XV4+XV5

=IF(COUNT(FIND("+"&A2&"+","+"&E$1:E$2&"+")),A2,"")
=IFERROR(LEFT(LOOKUP(1,-FIND("+"&A2&"+","+"&E$1:E$2&"+"),F:F),3),"")


============================================

TOP

leiru

帖子
334 
主題
139 
精華
0 
積分
621 
點名
0  
作業系統
WINDOWSXP 
軟體版本
OFFICE2003 
閱讀權限
50 
性別
女 
來自
台北縣 
註冊時間
2010-8-5 
最後登錄
2022-11-3 
7#
發表於 2020-5-22 21:03 | 只看該作者
回復 6# 准提部林


    也要帶出的資料如黃色區塊

真心感謝您

帶出符合一長串字串資料.zip (98.07 KB)

joyce

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-22 
6#
發表於 2020-5-22 19:37 | 只看該作者
回復 5# leiru


怎麼帶, 模擬結果看看~~

TOP

        靜思自在 : 做該做的事是智慧，做不該做的事是愚癡。
12
返回列表 上一主題