向邻居单元格添加值

Question

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

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

例如，假设单元格的最高值是C12。我想添加（“Sheet2”）。范围（“A1”）到C12和D12。代码可以将该值添加到C12。我想为另一个人提供帮助。

感谢。

Answer 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。