Excel VBA搜索字符串中的數組字符串

我想創建一個循環變量，通過字符串查找字符串數組，並將它們分配給組，如果找到匹配，但是，我不'如果源字符串與搜索字符串相同，就需要它是完全匹配的。示例代碼貼在下面：Excel VBA搜索字符串中的數組字符串

Sub add_Categories() 

Dim rRange As Range, rCell As Range 
Dim wSheet As Worksheet 
Dim wSheetStart As Worksheet 
Dim strText As String 

Set wSheetStart = ActiveSheet 
wSheetStart.AutoFilterMode = False 



Set rRange = Range("B1", Range("B65536").End(xlUp)) 

Application.DisplayAlerts = False 

With wSheetStart 
    For Each rCell In rRange 


    If rCell Like "*Apple*" Then rCell.Offset(0, 2) = "Grocery" 
    If rCell Like "*Orange*" Then rCell.Offset(0, 2) = "Grocery 
    If rCell Like "*Mop*" Then rCell.Offset(0, 2) = "Kitchen" 
    If rCell Like "*Broom*" Then rCell.Offset(0, 2) = "Kitchen" 
    'If rCell Like "*Shirt*" Then rCell.Offset(0, 2) = "Clothing" 
    'If rCell Like "*Pants*" Then rCell.Offset(0, 2) = "Clothing" 


    Next rCell 
End With 

With wSheetStart 
    '.AutoFilterMode = False 
    .Activate 
End With 

On Error GoTo 0 

Application.DisplayAlerts = True 

End Sub

上面的例子只有每個類別的兩個字符串，但在現實中我有上百個，這將是更容易進入他們作爲數組，而不是爲每個語句行。任何幫助深表感謝。

來源

2016-06-15 P5C768

不確定您是否知道，但您的代碼在第二個雜貨實例的末尾缺少雙引號。 –

如果您擁有如此多的產品和類別對：如果將它們放在隱藏表格中，而不是將它們硬編碼到數組中，會更容易嗎？ – Jochen

這是一種方式，你可以通過它使用數組和循環：

Sub add_Categories() 
Dim rRange As Range, rCell As Range, wSheet As Worksheet, wSheetStart As Worksheet, X As Long, FindArr As Variant, FoundArr As Variant 
FindArr = Array("Apple", "Orange", "Mop", "Broom", "Shirt", "Pants") 
FoundArr = Array("Grocery", "Grocery", "Kitchen", "Kitchen", "Clothing", "Clothing") 
Set wSheetStart = ActiveSheet 
wSheetStart.AutoFilterMode = False 
Set rRange = Range("B1", Range("B" & Rows.Count).End(xlUp)) 
Application.DisplayAlerts = False 
With wSheetStart 
    For Each rCell In rRange 
     For X = LBound(FindArr) To UBound(FindArr) 
      If rCell Like "*" & FindArr(X) & "*" Then rCell.Offset(0, 2) = FoundArr(X) 
     Next 
    Next 
End With 
With wSheetStart 
    '.AutoFilterMode = False 
    .Activate 
End With 
On Error GoTo 0 
Application.DisplayAlerts = True 
End Sub

添加你需要FindArr什麼和corosponding輸出FoundArr

另外這裏需要注意的變化：Set rRange = Range("B1", Range("B" & Rows.Count).End(xlUp))使用行.count，而不是硬編碼行號。

來源

2016-06-15 05:40:18

Excel VBA搜索字符串中的數組字符串

回答

相關問題