Excel 将单元格值复制到另一列,但如果同一行中有相同搜索条件的不同值
所以我需要简单的vba脚本。我有三个专栏。我需要找到A列中C列的每个值,以及C列值旁边B列的偏移值 我知道我可以用VlookUp。 但如果A列中有多个相同的值与B列中的偏移量值不同,我需要将这些不同的值放在同一行中,就在C列值的旁边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
谢谢大家的建议我正在使用这种代码,但它只适用于第一场比赛跳过其他比赛 我换了栏目
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
更改了测试列