合列

zxsea_7426 · 发表于 2023-7-20 20:58

本帖最后由 zxsea_7426 于 2023-7-21 20:12 编辑

xing_chen 发表于 2023-7-20 20:50
谢谢老师！合并3列，但我希望C列和D列间有空格，D列和E列中无空格。现在老师的代码运行结果是C,D,E3列合 ...

join时少加一列，最后再连接一列

brr(j, 1) = Join(Application.Index(arr, j, Array(1, 2)), " ")改成两项加空格连接再直接连接第三项

brr(j, 1) = Join(Application.Index(arr, j, Array(1, 2)), " ") & Application.Index(arr, j, 3)

xing_chen · 发表于 2023-7-20 21:22

cyq4896 发表于 2023-7-20 20:40
参与一下..

谢谢老师！未能达到我的愿望，存有问题还是D列和E列间有空格。

xing_chen · 发表于 2023-7-20 21:23

cyq4896 发表于 2023-7-20 20:40
参与一下..

抱歉！花就剩最后的好运花了。

cyq4896 · 发表于 2023-7-20 21:35

xing_chen 发表于 2023-7-20 21:23
抱歉！花就剩最后的好运花了。

去掉空格...

xing_chen · 发表于 2023-7-20 22:29

cyq4896 发表于 2023-7-20 21:35
去掉空格...

谢谢老师！我希望是保留1个空格。多余空格不要

cyq4896 · 发表于 2023-7-21 07:52

CD列无空格

xing_chen · 发表于 2023-7-21 08:10

cyq4896 发表于 2023-7-21 07:52
CD列无空格

谢谢老师！运行如愿！

xing_chen · 发表于 2023-7-21 08:10

cyq4896 发表于 2023-7-21 07:52
CD列无空格

抱歉！花在旅途，到时献上。

ご浅若★清风﹌ · 发表于 2023-7-21 11:02

优秀！！！

xing_chen · 发表于 2023-7-21 19:59

zxsea_7426 发表于 2023-7-20 20:58
join时少加一列，最后再连接一列

brr(j, 1) = Join(Application.Index(arr, j, Array(1, 23)), " ")改 ...

谢谢老师！

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

[求助] 合列