多儲存格尋找特定條件 - Excel程式區

[發問] 多儲存格尋找特定條件

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2020-4-27 12:57 | 顯示全部帖子

回復 1# free72921
試試看

Option Explicit
Sub Ex()
Dim AR As Variant, i As Integer, E As Variant
With Sheets("分類表")
i = 2 '第二列開始
Do While .Cells(i, "A") <> "" '執行一直到沒資料
AR = AR & IIf(AR <> "", vbLf, "") & .Cells(i, "A") & "," & .Cells(i, "B") ' 接合分類"," 物品
'**讀取物品資料 vbLf 燦列 '**AR的型態為自串
i = i + 1 '下一列
Loop
If AR <> "" Then AR = Split(AR, vbLf) '將型態為自串轉為陣列
End With
With Sheets("工作頁")
i = 2
Do While .Cells(i, "A") <> ""
For Each E In AR '陣列的每一元素
If InStr(E, .Cells(i, "A")) Then 'InStr 比對元素中是否有指定的物品
.Cells(i, "B") = Mid(E, 1, InStr(E, ",") - 1) '寫入分類
Exit For
End If
Next
i = i + 1
Loop
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 口說一句好話，如口出蓮花；口說一句壞話如口吐毒蛇。