在項目名稱中搜索文本字符串，並將分配的編號粘貼到其他單元格中

Question

我有一個7000行電子表格，為某些顏色分配了一個編號，我需要一個搜索字符串以在E列中找到該項目的特定顏色，並將分配的編號粘貼到它旁邊的F單元格中。

項目名稱與分配的編號一樣長，但是對於所有密集用途，結果都是相同的。 數字在另一張紙上，但我可以插入一列並粘貼

謝謝

搜索字符串並將其代碼應用於下一個單元格圖片

Answer 1

使用自動過濾器可獲得所需的輸出。 您可以嘗試這樣的事情...

Sub InsertColorCode()
Dim ws As Worksheet
Dim i As Long, lr1 As Long, lr2 As Long
Dim x
Application.ScreenUpdating = False
Set ws = ActiveSheet
ws.AutoFilterMode = False
lr1 = ws.Cells(Rows.Count, 1).End(xlUp).Row
lr2 = ws.Cells(Rows.Count, 5).End(xlUp).Row
x = Range("A3:B" & lr1).Value

For i = 1 To UBound(x, 1)
    With ws.Range("E2:E" & lr2)
        .AutoFilter field:=1, Criteria1:="*" & x(i, 2) & "*"
        If .SpecialCells(xlCellTypeVisible).Cells.Count > 1 Then
            ws.Range("E3:E" & lr2).SpecialCells(xlCellTypeVisible).Offset(0, 1).Value = x(i, 1)
        End If
    End With
Next i
ws.AutoFilterMode = False
Application.ScreenUpdating = True
End Sub