在excel 中如何才能保留一行中的最大值且单元格不变,并删除其他单元格的值?

Question

如题所述

Answer 1

右击工作表标签，查看代码，把下面的代码贴到VBA窗口，按一下F5

Sub chiefzjh()
Application.ScreenUpdating = False
Dim iMax, r%, c%
For r = 1 To [a65536].End(3).Row
iMax = WorksheetFunction.Max(Rows(r))
For c = 1 To Cells(r, 1).End(xlToRight).Column
If Cells(r, c).Value <> iMax Then Cells(r, c).ClearContents
Next c
Next r
Application.ScreenUpdating = True
End Sub追问

我怎么找不到这些代码

Answer 2

使用条件格式将非最大值设置为白色字体。追问

将非最大值设置为白色字体，数值并未删除，还参与运算；我是想删除后不让他参与运算

Answer 3

用MIN求出最大值后按下F9功能键,再删去该区域其他单元格本回答被提问者采纳