如何批量把Excel表格里大于8的数字修改为8。希望可以详细解答下

ALT+F11
点左边工程窗口,你要改的表
然后在右边窗口中复制以下代码:
Sub yueliang()
For Each n In Range("H10:AD1299")
If n.Value > 8 And Application.IsNumber(n) And xlnlTypeFormulas = False Then n.Value = 8
Next
End Sub
完后F5即可.

安全等级设置:工具/安全性/宏安全性:设为中以上

注:是smallcolour和qgrmdtj的修订版.

用里面有一个条件格式.里面就可以.编一条公式.>8;"8"

批量不知道，改一个Excel，可以用 编辑->替换 来实现

你编一个程序，用excel读入 读出 试试看

=if(A1>8,8,"")

按下ALT+F11,菜单:插入-模块,复制下面代码.
按下F5运行.

Sub TEST()
For Each C In ActiveSheet.UsedRange
If C.Value > 8 Then
C.Value = 8
End If
Next
End Sub

你按alt +F11,在左上的工程的窗口中右建－－－点插－－－模块，
出现一个窗口后，在这个窗口中复制下面的代码，然后按F5,就会出来答案了


Sub uu()
For Each cel In Range("a1:f100")
If cel.Value > 8 And Application.IsNumber(cel) Then
cel.Value = 8
End If
Next
End Sub


其中的Range("a1:f1000")里的a1:f1000,你可以换成你的实际的有数据的区域，只要符合你的需要就可以，太大计算时就要用很多的时间。

自定义格式:[>8   8