求單元格最大值

rjs001312

我想求A1:D1的最大值，结果保存到单元格E1 ，求A2:D2的最大值，结果保存到E2,如此类推，得出图片结果，请问VBA 应该怎样写呢?

yeminqiang

Sub cdsr()
Dim lastrow%
lastrow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lastrow
Cells(i, 5) = Application.Max(Cells(i, 1).Resize(1, 4))
Next
End Sub



目测>>>>>>>

rjs001312

yeminqiang 发表于 2016-8-30 16:37
Sub cdsr()
Dim lastrow%
lastrow = Cells(Rows.Count, 1).End(xlUp).Row

谢谢你的回答,可以使用，但我还有一个问题想请问一下，如果我想求的最大值不是连续的，例如我想求A1,C1,D1当中的最大值，如此类推,那应该怎样写程序呢?

ggsmart

rjs001312 发表于 2016-8-30 17:10
谢谢你的回答,可以使用，但我还有一个问题想请问一下，如果我想求的最大值不是连续的，例如我想求A1,C1,D ...

不是连续的，但有规律吗？最好一次能把要实现的最终结果说出来

ggsmart

rjs001312 发表于 2016-8-30 17:10
谢谢你的回答,可以使用，但我还有一个问题想请问一下，如果我想求的最大值不是连续的，例如我想求A1,C1,D ...

不是连续的，但有规律吗？最好一次能把要实现的最终结果说出来