Excel VBA 带有分子分母的字符串转换成数据格式

今天要讲的例子,主要数据格式的转换。

问题如下:

Excel VBA 带有分子分母的字符串转换成数据格式

解决的思路如下:

Excel VBA 带有分子分母的字符串转换成数据格式

代码运行的结果如下:

Excel VBA 带有分子分母的字符串转换成数据格式

代码如下:

Excel VBA 带有分子分母的字符串转换成数据格式

代码解析

1:2~4行 DIM定义变量;

2:5行 获取最后一个非空单元格;

3:6~26行 遍历整个工作表的一列;

4:7行 查找B列包含有“尺码”的单元格;

5:8行 获取该单元格区域内的,最后一个非空单元格;

6:9行 把获得的区域,赋值给数组arr;

7:10~11行 用两个for循环 遍历数组arr;

8:12行 判断字符串里面是否包含“-”,此判断是为了排除整数的部分;

9:13行 用nn记录拆分出来的整数部分;

10:14行 用mm记录拆分出来的分子及分母,并计算的结果;

11:15行 把结果再赋值给数组

12: 17行 用like函数判断是否为纯分母,代码解析同14行代码;

13:23行 把单元格区域的格式,变更为数值,并保留两位数的格式。

14:24行 把数组arr,再赋值给该单元格区域。

私信 视频 可以获取54集VBA入门视频

私信 VBA或 vba 可以获取文章中含VBA代码的Excle文件


分享到:


相關文章: