Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/16.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 将单元格值复制到另一列,但如果同一行中有相同搜索条件的不同值_Excel_Vba - Fatal编程技术网

Excel 将单元格值复制到另一列,但如果同一行中有相同搜索条件的不同值

Excel 将单元格值复制到另一列,但如果同一行中有相同搜索条件的不同值,excel,vba,Excel,Vba,所以我需要简单的vba脚本。我有三个专栏。我需要找到A列中C列的每个值,以及C列值旁边B列的偏移值 我知道我可以用VlookUp。 但如果A列中有多个相同的值与B列中的偏移量值不同,我需要将这些不同的值放在同一行中,就在C列值的旁边 谢谢大家的建议我正在使用这种代码,但它只适用于第一场比赛跳过其他比赛 我换了栏目 Sub Sample() Dim ws As Worksheet Dim DataRange As Range, UpdateRange As Range, aCel

所以我需要简单的vba脚本。我有三个专栏。我需要找到A列中C列的每个值,以及C列值旁边B列的偏移值

我知道我可以用VlookUp。 但如果A列中有多个相同的值与B列中的偏移量值不同,我需要将这些不同的值放在同一行中,就在C列值的旁边


谢谢大家的建议

我正在使用这种代码,但它只适用于第一场比赛跳过其他比赛

我换了栏目

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

更改了测试列