这个很简单，可不用vba。
在一空单元格输入100并复制它，选中要除的全部单元格，再右击选中的→选择性粘贴→除→确定。
你的代码，怎么让人觉得不明白。
I变量是2-7，根据你后面的代码，cells(i,j)
这表示2-7行。但你的J又是要的使用区域的行，这有些让人不解了。
我理解你应该是B:G列的使用区域，除了第一行，进行这个操作。
代码如下
Sub a()
With Sheets("TDIFF")
For Each rng In .Range("B2:G" & .UsedRange.Rows.Count)
rng.Value = rng / 100
Next
End With
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024