求自定义函数加按钮实现数据转换vba

CAONI · 发表于 2023-1-20 17:51

本帖最后由 CAONI 于 2023-1-25 13:37 编辑

1、将a列数据编号逐个换成b2:L500000行各单元格中的数据。
2、单元格a5开始的a列各单元格中填有不同数字，每相邻二个数字间空一格。
3、a列各单元格从上到下，数据逐个自动换成b2:l2，b3:l3，b4:l4，b5:l5等行的数据且代换后的数据升序排序后填充在

w5开始的同行各单元格中,每个单元格一个数据。
4、b到L其编号为1、2、3、4、5且与a列数据相同.....
5、数字具体换法是：
数字1换成单元格b2（列）中的数字,数字2换成单元格c2（列）中的数字,数字3换成单元格d2（列）中的数字,数字4（列）
换成单元格e2中的数字,数字5换成单元格f2（列）中的数字,其他依次。
6、a列数据先换成b2:l2中的数据再换成b3:l3中的数据次换成b4:l4中的数据，依次替换且替换的数据相邻二个数字间空一

格串接，依次填充在w5:w80、x5:x80...（第2次替换的数据填在第1次替换的数据后面，第3次替换的数据填在第2次替换的

数据后面，依次）

7、本题要求用函数加按钮实现：

a数据替换11.rar (28.03 KB, 下载次数: 8)

蓝桥玄霜 · 发表于 2023-1-21 13:20

替换的例子：

CAONI · 发表于 2023-1-21 13:35

本帖最后由 CAONI 于 2023-1-21 13:42 编辑

蓝桥玄霜发表于 2023-1-21 13:20
替换的例子：

谢谢版主，题意是要写成函数加按钮也就是说将2楼程序:
For i = 1 To UBound(brr)
...........
next i

这一部分写成一个函数，然后调用这个函数

		自动登录	找回密码
密码			免费注册

[求助] 求自定义函数加按钮实现数据转换vba