向相邻单元格添加值

【问题标题】：Adding a Value to the Neighbor Cell向相邻单元格添加值
【发布时间】：2015-03-23 11:52:39
【问题描述】：

我写了一个宏，首先过滤一些列，在另一列中找到最大可见值，将其添加到另一个单元格并绘制它。它工作正常。

但我也必须将相同的数字添加到相邻单元格（同一行中的右侧）。

例如假设该单元格的最高值是C12。我想将 ("Sheet2").Range("A1") 添加到 C12 和 D12。代码可以将该值添加到 C12。我需要另一个人的帮助。

谢谢。

【问题讨论】：

标签： excel vba filter max add

【解决方案1】：

您应该能够将 ss 偏移 1 列，并将 y 添加到偏移单元格。

If ss.Value = mx Then
    ss.Value = ss.Value + y
    ss.offset(0, 1).value = ss.offset(0, 1).value + y
    ss.Interior.ColorIndex = 24
    Exit Sub
End If

如果需要，您可以再次使用offset 设置单元格的颜色索引。

有关offset 属性的信息，请参阅MSDN documentation。

【讨论】：

就是这样。谢谢。 ss.Offset(columnOffset:=1).Activate ActiveCell.Value = ActiveCell.Value + y