アイテム名の文字列を検索し、他のセルに割り当てられた番号を貼り付けます

Question

特定の色に数字が割り当てられた7000行のスプレッドシートがあります E列の項目の特定の色を検索するには検索文字列が必要ですその横のFセルに割り当てられた番号。

アイテム名は、割り当てられた番号ほど長くなりますが、すべての集中的な目的で同じ結果になります。数字は別のシート上にあるが、私は列を挿入し、所望の出力を達成するためにそれらを

おかげ

Search for String and apply its code to next cell pic

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 

見つかった場合は、範囲を返すRange.Findメソッドを使用することができます