向相邻单元格添加值

Question

我写了一个宏，关于首先过滤一些列，在另一列中找到最大可见值，将它添加到另一个单元格并绘制它。效果很好。

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

例如假设单元格的最高值为C12。我想将 ("Sheet2").Range("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。

向相邻单元格添加值

Adding a Value to the Neighbor Cell

excel

vba

add

max

filter