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

在项目名称中搜索文本字符串，并在其他单元格中粘贴指定的编号

1 个答案: