Question

所以我需要简单的vba脚本。我有3列。我需要从列A中的列C中找到每个值，并从列C的值旁边找到列C的偏移值。

为此我可以使用VlookUp，我知道。但是如果A列中有多个相同的值与B的偏移值不同，我需要将所有不同的值放在同一行中，紧邻C列值。

感谢大家的建议

Answer 1

我使用这种代码，但它只适用于跳过其他人的第一场比赛...

P.S。我改了专栏

Sub Sample()

    Dim ws As Worksheet
    Dim DataRange As Range, UpdateRange As Range, aCell As Range, bCell As Range
    On Error GoTo Err

    Set ws = Worksheets("Missing_Subnets_21048_COPY")
    Set UpdateRange = ws.Range("K6:K12")
    Set DataRange = ws.Range("H6:H12")

    For Each aCell In UpdateRange
        Set bCell = DataRange.Find(What:=aCell, LookIn:=xlValues, _
                    LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                    MatchCase:=False, SearchFormat:=False)


        If Not bCell Is Nothing Then
           aCell.Offset(, 1) = bCell.Offset(, 1)
        End If
    Next

    Exit Sub

Err:
    MsgBox Err.Description
End Sub

将单元格值复制到另一列但是如果相同的搜索条件存在不同的值放在同一行中

1 个答案: