excel B2:D32的单元格同时除以10000的宏怎么做

发布网友 发布时间：2022-04-23 05:36

我来回答

共4个回答

热心网友 时间：2023-09-17 08:31

Sub div_10000()
On Error Resume Next
Dim myRange, myCell As Range
Set myRange = ActiveSheet.Range("B2:D32")
For Each myCell In myRange
If VBA.IsNumeric(myCell.Value) Then
myCell = myCell.Value / 10000
End If
Next
End Sub

热心网友 时间：2023-09-17 08:31

核心代码如下：（其他的需要楼主详细说明调用宏的方式）
sub mul()
dim cll as range
for each cll in activesheet.[B2:D32]
cll.value=cll.value/1000
next cll
end sub

热心网友 时间：2023-09-17 08:32

自己录制一个 区域 *0.00001 就可以了嘛

或者循环
dim cel as range
for each cel in range("B2:D32")
cel = cel/10000
next

热心网友 时间：2023-09-17 08:33

这个还真是不太清楚。