VBA 一出二维 ( 转为特殊表格 )

On_fire · 发表于 2024-10-31 10:50

本帖最后由 On_fire 于 2024-10-31 11:37 编辑

VBA 一出二维 ( 转为特殊表格 )

*

Sheet1的A列是由上到下的源资料, 行数是{ 变量 }

AA~AR列是指定的表格( AA1~AR36), 对应了源资料的三个不同的数据区域 ( A, B, C区 )

*

执行代码的逻辑如下,

1. 读取数据: 由A列第27行开始往下, 行数是变量

2. A区:

因为A列的步长是变量, 要在[ Z1 ]格, 输入步长, 比如: [ 13],

执行代码之后，在AA4 ( AA4~AO17 ) 开始直向改成横向按步长输出

最后数据行数不够（少于）步长, 就不用输出

3. B区:

判断第一个字符Ｐ~F之间的数据步长,

每3格1组资料, 在AA22 ( AA22~AD35 ) 开始直向改成横向, 由上到下输出

4. C区:

判断第二个字符Ｐ~F之间的数据步长,

每3格1组资料, 在AO22 ( AO22~AR35 ) 开始直向改成横向, 由上到下输出

*

模拟结果在Sheet1(2)

*

有难度, 恳请大神, 老师山手帮忙…

chxw68 · 发表于 2024-10-31 12:56

只写了第一部分的代码。

xlj310 · 发表于 2024-10-31 13:43

写成通用的。并且做了Change事件。

修改Z1单元格自动出结果。结果输出单元格是固定的，如果要根据数据自适应，请修改结果输出位置。

Set.zip (24.38 KB, 下载次数: 7)
QQ截图20241031134108.png

chxw68 · 发表于 2024-10-31 15:19

练习，没有仔细推敲。

On_fire · 发表于 2024-10-31 18:11

xlj310 发表于 2024-10-31 13:43
写成通用的。并且做了Change事件。修改Z1单元格自动出结果。结果输出单元格是固定的，如果要根据 ...

老师好，
请您看看截图中，Ｂ及C区对应资料有空格
请问如何优化？

xlj310 · 发表于 2024-11-1 08:22

On_fire 发表于 2024-10-31 18:11
老师好，
请您看看截图中，Ｂ及C区对应资料有空格
请问如何优化？

把结果数组再处理一下就行了。这个你自己可以想一想。
也可以在生成输出数组的时候往右移动一列。这个我给你写了，你可参考一下。

Set.zip (27.73 KB, 下载次数: 3)

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

[求助] VBA 一出二维 ( 转为特殊表格 )