vba replace函数_《神奇的VBA》编程：高效拆分单元格数据

最新推荐文章于 2023-09-11 01:52:59 发布

weixin_39883091

最新推荐文章于 2023-09-11 01:52:59 发布

阅读量660

点赞数 1

文章标签： vba replace函数

本文链接：https://blog.csdn.net/weixin_39883091/article/details/111334522

版权

批量对单元格区域内每个单元格中的数据按照一定的规则进行拆分是职场工作中经常碰到的操作。Excel数据选项卡中“分列”提供了基础的功能。能帮助用户通过鼠标快速分列数据。

本篇神奇的VBA将介绍几种通过Excel VBA编程来快速高效拆解单元格中数据的思路。

案例

将下图中B列中的生产编号按照"-"号进行拆分，并将拆分后的非空数据逐一放入右边的列中。

注：表中B列，有约3万1千行数据。

思路1：也是所有初学者的思路，逐一遍历单元格区域中的所有单元格，将单元格中的文本进行分裂，并再次遍历分裂后的数组元素放置在右边的单元格中。

Sub 思路1()Dim str As StringDim x As IntegerDim rng As RangeSet rng = Range("B3:B" & Range("B1048576").End(x

关注