把分组后的姓名显示在单元格里

yshcy

随机抽取人数，每组显示5人。如果是分3组（k=3），怎么让这3组（15人）的姓名，都显示在单元里呢？MsgBox Join(brr) ,3组姓名是出来了，但是没有在单元里。[d1].Resize(5, 1) = Application.Transpose(brr)存在着后面的替换了前面的结果。请指教，谢谢

gwjkkkkk

gwjkkkkk

请参考附件。。。

yshcy

gwjkkkkk 发表于 2025-1-28 10:21
请参考附件。。。

如果只想分2组，那么单元格里就分2行显示，每个单元格1个姓名，每行5个人。或者分2列显示，每列5行，每行一个人名。谢谢。

gwjkkkkk

yshcy 发表于 2025-1-28 10:27
如果只想分2组，那么单元格里就分2行显示，每个单元格1个姓名，每行5个人。或者分2列显示，每列5行，每行 ...

摸拟一下结果！

ykcbf1100

小改一下。。。

yshcy

gwjkkkkk 发表于 2025-1-28 10:46
摸拟一下结果！

如分3组，上图中两种方法显示出来均可

ykcbf1100

这里改一下就行

yshcy

ykcbf1100 发表于 2025-1-28 10:49
小改一下。。。

意思是出来了。但能否把姓名放在不同的单元里，而不是合并呢？谢谢

ykcbf1100

yshcy 发表于 2025-1-28 10:54
意思是出来了。但能否把姓名放在不同的单元里，而不是合并呢？谢谢

1. Cells(x, 4).Resize(, 5) = brr

复制代码

这句改一下。