使用 VBA 代码将一系列单元格除以某个数字通过 VBA 代码，您还可以自动将一系列单元格除以某个数字。
1. 选择要被某个数字除的区域。
2. 点击“开发工具” > “Visual Basic”，会弹出一个新的“Microsoft Visual Basic for Applications”窗口，点击“插入” > “模块”，然后在模块中输入以下代码：
VBA：将一系列单元格除以某个数字
Sub DivisionNum()
'Updateby20140128
Dim Rng As Range
Dim WorkRng As Range
Dim xNum As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xNum = Application.InputBox("Division num", xTitleId, Type:=1)
For Each Rng In WorkRng
Rng.Value = Rng.Value / xNum
Next
End Sub
3. 然后点击 按钮运行代码。在弹出的对话框中，请选择要除以某个数字的单元格区域，然后点击“确定”按钮。请参见截图：
4. 在第二个弹出的对话框中，输入除数，然后点击“确定”按钮。请参见截图：
现在，所选区域中的所有数字都被数字 15 除。