当Excel数据太年夜时,看起来比力繁琐,可以将数据以万为单元进行显示,显得加倍清楚易懂。

工具/原料
- Excel
方式/步骤
- 1
以下列数据为例,让年夜于一万的数值保留一位小数且以万为单元显示。

- 2
插入一个表单控件。

- 3
绘制当作功后会主动弹出一个窗口,选中右上角的 新建。

- 4
此时界面会主动跳转到VBA界面。

- 5
在模块窗口两条代码间输入代码。

- 6
代码如下,复制粘贴即可。
Dim k As Integer
Dim rng As Range
Set rng = Selection
k = InputBox("若是数值年夜于1万,保留几位小数")
For Each rng In Selection
If rng >= 10000 Then
rng = rng / 10000
rng = Application.WorksheetFunction.Round(rng, k)
rng = rng &"万"
Else
rng = rng
End If
Next

- 7
返回Excel界面,选中需要处置的区域,点击按钮即可。



注重事项
- 若是对您有点帮忙,请帮手撑持一下,感谢!










