EXCEL VBA高手进,三个简单的问题,20分

[复制链接]
查看11 | 回复2 | 2011-7-7 09:03:06 | 显示全部楼层 |阅读模式
我最近做了个统计计算的表格,有几个问题不懂,求教:
第一个:我想把计算出来的数值保留两位有效数字,不会……
第二个:我计算出来的数值在A1至A8单元格以及A12至A18单元格,需要排序,但是中间的A9至A11不在排序里,就是中间断着,这种情况怎么排序,不是用EXCEL的那种排序,而是写代码,然后直接在数值后侧的单元格中出现排序后的序位,求救……
第三个:本人菜鸟,望高手把代码写清楚点,谢谢了……
我想要代码性质的

回复

使用道具 举报

千问 | 2011-7-7 09:03:06 | 显示全部楼层
第一个问题:你设置一下单元格的格式就可以了,要是连这个都不会的话。。。你可真要问问人家啦!第二个其实不用代码的。。。楼上的方法就可以解决了,至于你非要代码的话:Sub Macro()Range("a9:a11").Cut '剪切A9至A11单元格Range("a19").Insert shift:=xlDown '将剪切的内容插入到A19单元格Range("A1:A15").Sort Key1:=Range("A1"), Order1:=xlDescending '降序排列A1至A15单元格Range("a16:a18").Cut '将原来A9至A11的单元格恢复至原来的位置Range("a9").Insert shift:...
回复

使用道具 举报

千问 | 2011-7-7 09:03:06 | 显示全部楼层
貌似不用代码问题1:选择计算出结果的单元格或区域,设置单元格格式-自定义-输入00问题2:把A1~A8及A12-A18的内容复制到一个新的sheet页A1~A15中,EXCEL排序,再B1写入序号1,然后下拉B1到A列末尾。然后复制1~8行覆盖原来sheet页中内容,相同复制9~15行内容覆盖原内容即可。还有问题吗?...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行