如何在VBA的For Each循环中获取当前单元格右侧相邻单元格的值？

1. 获取目标单元格右侧相邻单元格的值 #

不管目标单元格在第几列，要取它右侧相邻单元格的值，用Offset方法即可，语法是cell.Offset(行偏移量, 列偏移量).Value。其中：

• 行偏移量填0表示保持同一行
• 列偏移量填1表示向右偏移1列

对应到你的代码里，替换成：

otherVariable = cell.Offset(0, 1).Value

2. 匹配你的核心需求：提取该行A列和B列的值 #

你的实际需求是找到带颜色的单元格后，复制所在行A列的值和B列的数量值，不需要依赖目标单元格的列位置，直接通过行号定位A、B列即可。调整后的完整代码如下：

Dim cell As Range
Dim targetColor As Long
Dim aColValue As Variant
Dim bColValue As Variant

' 定义你要搜索的目标颜色（示例为RGB红色，可替换为实际颜色值）
targetColor = RGB(255, 0, 0)

For Each cell In ActiveSheet.UsedRange
    If cell.Interior.Color = targetColor Then
        ' 获取当前行A列的值（A列对应数字1，也可以用"A"代替）
        aColValue = ActiveSheet.Cells(cell.Row, 1).Value
        ' 获取当前行B列的值（B列对应数字2，也可以用"B"代替）
        bColValue = ActiveSheet.Cells(cell.Row, 2).Value
        
        ' 这里可添加自定义处理逻辑，比如将结果写入其他区域
        ' 示例：把结果写入当前工作表的D、E列（自动找最后一行）
        With ActiveSheet
            .Cells(.Rows.Count, "D").End(xlUp).Offset(1).Value = aColValue
            .Cells(.Rows.Count, "E").End(xlUp).Offset(1).Value = bColValue
        End With
    End If
Next cell

额外提示 #

如果同一行存在多个带颜色的单元格，会重复提取A、B列的值。若要避免重复处理，可以添加一个变量记录已处理的行号，示例逻辑：

Dim processedRow As Long
processedRow = 0

For Each cell In ActiveSheet.UsedRange
    If cell.Interior.Color = targetColor And cell.Row <> processedRow Then
        ' 执行提取逻辑...
        processedRow = cell.Row ' 更新已处理行号
    End If
Next cell

内容的提问来源于stack exchange，提问作者Lode