在b列顯示最大值。
公共Sub GetMax()
n =範圍(" A1048576 ")。結束(xlUp)。排
n =應用。WorksheetFunction.RoundUp(n / 30，0)
對於i = 1到n
單元格(I，2) =應用程序。WorksheetFunction.Max(範圍(單元格((i - 1) * 30 + 1，1)，單元格(i * 30，1)))
接下來我
末端接頭