如果一行中有两个单元格匹配，则需要提供一个名称，而下一行匹配的需要在excel vba中动态提供另一个名称

Sub MatchCells()
    Dim ws As Worksheet
    Dim cellA As Range, cellB As Range
    Dim nameRange As Range
    Dim nameValue As String
    
    ' 设置工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 设置单元格范围
    Set cellA = ws.Range("A1")
    Set cellB = ws.Range("B1")
    
    ' 获取单元格A的值
    nameValue = cellA.Value
    
    ' 在单元格B中查找匹配的值
    Set nameRange = ws.Range("B:B").Find(What:=nameValue, LookIn:=xlValues, LookAt:=xlWhole)
    
    ' 如果找到匹配的单元格，则将其值赋给单元格A的下一行
    If Not nameRange Is Nothing Then
        cellA.Offset(1, 0).Value = nameRange.Value
    End If
End Sub