当单元格等于value时，Excel执行while操作以获取相邻单元格

Sub GetAdjacentCellValues()
    Dim currentValue As Variant
    Dim adjacentValue As Variant
    Dim rowNum As Integer
    Dim colNum As Integer
    
    ' 设置起始单元格的行号和列号
    rowNum = 1
    colNum = 1
    
    ' 获取起始单元格的值
    currentValue = Cells(rowNum, colNum).Value
    
    ' 循环判断单元格的值是否等于给定的value
    While currentValue = value
        ' 获取相邻单元格的值（假设相邻单元格在右侧）
        adjacentValue = Cells(rowNum, colNum + 1).Value
        
        ' 在这里可以对获取到的相邻单元格的值进行处理
        
        ' 更新当前单元格的行号和列号
        rowNum = rowNum + 1
        colNum = colNum + 1
        
        ' 获取下一个单元格的值
        currentValue = Cells(rowNum, colNum).Value
    Wend
End Sub