请教

西岭雪

<COLGROUP>

<COL style="WIDTH: 161pt; mso-width-source: userset; mso-width-alt: 6880" width=215>

<COL style="WIDTH: 97pt; mso-width-source: userset; mso-width-alt: 4128" width=129>

<COL style="WIDTH: 122pt; mso-width-source: userset; mso-width-alt: 5184" width=162>

<COL style="WIDTH: 83pt; mso-width-source: userset; mso-width-alt: 3520" width=110>





5,474,563.23

想把A列的数据的单位从元直接变成万元或千元，有什么其它的好办法

547

就向这个，旦这个是除了10000，要直接在A列



23,178,789.35

2,318



78,945,678.23

7,895



56,456,678.78

5,646



4,561.12

0



1,245,678.98

125



41,223.54

4



78,945.12

8

晓月清风

Sub 千位()

For Each xcell In Selection

xcell.Value = xcell.Value * 1000  '如果是万元的话，则乘10000

Next xcell

End Sub选择要转换的单元格，如A1：A10，然后执行相应的宏即可实现直接在A1：A10将数据转换

西岭雪

呵呵，我是一个新手，对宏不懂啊，请你帮帮忙！谢谢了

[此贴子已经被作者于2005-7-3 11:57:39编辑过]

晓月清风

按ALT+F11打开VBE窗口，右键点击VBProject(Book1)插入一个模块，将代码复制粘贴进去，保存，要使用宏只须按ALT+F8，然后选择要运行的宏即可。

红池坝

是指A列的所有数自动除以10000吧（万元）。这个不需要VBA的，用选择性粘贴即可：

1、在一个空白的单元格里输入10000（如果是千元就输入1000），复制该单元格

2、选中要改变数值的单元格，比如A1:A20

3、执行“选择性粘贴”，在运算里选择“除”，按“确定”后A1到A20的数值自动被除以10000

个人感觉把单位从“元”变成“万元”应该用除法吧，怎么清风兄用了乘法呢？

[此贴子已经被作者于2005-7-3 14:17:21编辑过]

西岭雪

呵呵，谢谢俩位楼主了，哦可能是除以1000，或1000！Sub 千位()

For Each xcell In Selection

xcell.Value = xcell.Value /1000  '如果是万元的话，则除10000

Next xcell

End Sub